home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / Perl / str.c < prev    next >
MacBinary  |  1993-10-23  |  35.3 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: str.c

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sat Oct 23 01:17:42 1993, modified Sat Oct 23 01:17:42 1993, creator 'MPS ', type ASCII, 35399 bytes "str.c" , at 0x8ac7 428 bytes resource default (weak)
99% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-2K) default (weak)
16% TrID MacBinary 2 default (weak)
0% TrID Sybase iAnywhere database files default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 73 74 72 2e 63 00 | 00 00 00 00 00 00 00 00 |..str.c.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 8a 47 00 | 00 01 ac a8 ee 6e f6 a8 |......G.|.....n..|
|00000060| ee 6e f6 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.n......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 13 e8 00 00 |........|........|
|00000080| 2f 2a 20 24 52 43 53 66 | 69 6c 65 3a 20 73 74 72 |/* $RCSf|ile: str|
|00000090| 2e 63 2c 76 20 24 24 52 | 65 76 69 73 69 6f 6e 3a |.c,v $$R|evision:|
|000000a0| 20 34 2e 30 2e 31 2e 37 | 20 24 24 44 61 74 65 3a | 4.0.1.7| $$Date:|
|000000b0| 20 31 39 39 33 2f 30 32 | 2f 30 35 20 31 39 3a 34 | 1993/02|/05 19:4|
|000000c0| 33 3a 34 37 20 24 0d 20 | 2a 0d 20 2a 20 20 20 20 |3:47 $. |*. *    |
|000000d0| 43 6f 70 79 72 69 67 68 | 74 20 28 63 29 20 31 39 |Copyrigh|t (c) 19|
|000000e0| 39 31 2c 20 4c 61 72 72 | 79 20 57 61 6c 6c 0d 20 |91, Larr|y Wall. |
|000000f0| 2a 0d 20 2a 20 20 20 20 | 59 6f 75 20 6d 61 79 20 |*. *    |You may |
|00000100| 64 69 73 74 72 69 62 75 | 74 65 20 75 6e 64 65 72 |distribu|te under|
|00000110| 20 74 68 65 20 74 65 72 | 6d 73 20 6f 66 20 74 68 | the ter|ms of th|
|00000120| 65 20 50 65 72 6c 20 41 | 72 74 69 73 74 69 63 20 |e Perl A|rtistic |
|00000130| 4c 69 63 65 6e 73 65 2c | 0d 20 2a 20 20 20 20 61 |License,|. *    a|
|00000140| 73 20 73 70 65 63 69 66 | 69 65 64 20 69 6e 20 74 |s specif|ied in t|
|00000150| 68 65 20 52 45 41 44 4d | 45 20 66 69 6c 65 2e 0d |he READM|E file..|
|00000160| 20 2a 0d 20 2a 20 24 4c | 6f 67 3a 09 73 74 72 2e | *. * $L|og:.str.|
|00000170| 63 2c 76 20 24 0d 20 2a | 20 52 65 76 69 73 69 6f |c,v $. *| Revisio|
|00000180| 6e 20 34 2e 30 2e 31 2e | 36 20 20 31 39 39 32 2f |n 4.0.1.|6  1992/|
|00000190| 30 36 2f 31 31 20 20 32 | 31 3a 31 34 3a 32 31 20 |06/11  2|1:14:21 |
|000001a0| 20 6c 77 61 6c 6c 0d 20 | 2a 20 70 61 74 63 68 33 | lwall. |* patch3|
|000001b0| 34 3a 20 71 75 6f 74 65 | 73 20 63 6f 6e 74 61 69 |4: quote|s contai|
|000001c0| 6e 69 6e 67 20 73 75 62 | 73 63 72 69 70 74 73 20 |ning sub|scripts |
|000001d0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 76 61 72 69 61 |containi|ng varia|
|000001e0| 62 6c 65 73 20 64 69 64 | 6e 27 74 20 70 61 72 73 |bles did|n't pars|
|000001f0| 65 20 72 69 67 68 74 0d | 20 2a 20 0d 20 2a 20 52 |e right.| * . * R|
|00000200| 65 76 69 73 69 6f 6e 20 | 34 2e 30 2e 31 2e 35 20 |evision |4.0.1.5 |
|00000210| 20 39 32 2f 30 36 2f 30 | 38 20 20 31 35 3a 34 30 | 92/06/0|8  15:40|
|00000220| 3a 34 33 20 20 6c 77 61 | 6c 6c 0d 20 2a 20 70 61 |:43  lwa|ll. * pa|
|00000230| 74 63 68 32 30 3a 20 72 | 65 6d 6f 76 65 64 20 69 |tch20: r|emoved i|
|00000240| 6d 70 6c 69 63 69 74 20 | 69 6e 74 20 64 65 63 6c |mplicit |int decl|
|00000250| 61 72 61 74 69 6f 6e 73 | 20 6f 6e 20 66 75 6e 63 |arations| on func|
|00000260| 74 69 6f 6e 73 0d 20 2a | 20 70 61 74 63 68 32 30 |tions. *| patch20|
|00000270| 3a 20 50 65 72 6c 20 6e | 6f 77 20 64 69 73 74 69 |: Perl n|ow disti|
|00000280| 6e 67 75 69 73 68 65 73 | 20 6f 76 65 72 6c 61 70 |nguishes| overlap|
|00000290| 70 65 64 20 63 6f 70 69 | 65 73 20 66 72 6f 6d 20 |ped copi|es from |
|000002a0| 6e 6f 6e 2d 6f 76 65 72 | 6c 61 70 70 65 64 0d 20 |non-over|lapped. |
|000002b0| 2a 20 70 61 74 63 68 32 | 30 3a 20 70 61 72 61 67 |* patch2|0: parag|
|000002c0| 72 61 70 68 20 6d 6f 64 | 65 20 6e 6f 77 20 73 6b |raph mod|e now sk|
|000002d0| 69 70 73 20 65 78 74 72 | 61 20 6e 65 77 6c 69 6e |ips extr|a newlin|
|000002e0| 65 73 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |es autom|atically|
|000002f0| 0d 20 2a 20 70 61 74 63 | 68 32 30 3a 20 66 69 78 |. * patc|h20: fix|
|00000300| 65 64 20 6d 65 6d 6f 72 | 79 20 6c 65 61 6b 20 69 |ed memor|y leak i|
|00000310| 6e 20 64 6f 75 62 65 2d | 71 75 6f 74 65 20 69 6e |n doube-|quote in|
|00000320| 74 65 72 70 72 65 74 61 | 74 69 6f 6e 0d 20 2a 20 |terpreta|tion. * |
|00000330| 70 61 74 63 68 32 30 3a | 20 6d 61 64 65 20 2f 5c |patch20:| made /\|
|00000340| 24 24 66 6f 6f 2f 20 6c | 6f 6f 6b 20 66 6f 72 20 |$$foo/ l|ook for |
|00000350| 6c 69 74 65 72 61 6c 20 | 27 24 66 6f 6f 27 0d 20 |literal |'$foo'. |
|00000360| 2a 20 70 61 74 63 68 32 | 30 3a 20 22 24 76 61 72 |* patch2|0: "$var|
|00000370| 7b 24 66 6f 6f 27 62 61 | 72 7d 22 20 64 69 64 6e |{$foo'ba|r}" didn|
|00000380| 27 74 20 73 63 61 6e 20 | 73 75 62 73 63 72 69 70 |'t scan |subscrip|
|00000390| 74 20 63 6f 72 72 65 63 | 74 6c 79 0d 20 2a 20 70 |t correc|tly. * p|
|000003a0| 61 74 63 68 32 30 3a 20 | 61 20 73 70 6c 69 63 65 |atch20: |a splice|
|000003b0| 20 6f 6e 20 6e 6f 6e 2d | 65 78 69 73 74 65 6e 74 | on non-|existent|
|000003c0| 20 61 72 72 61 79 20 65 | 6c 65 6d 65 6e 74 73 20 | array e|lements |
|000003d0| 63 6f 75 6c 64 20 64 75 | 6d 70 20 63 6f 72 65 0d |could du|mp core.|
|000003e0| 20 2a 20 70 61 74 63 68 | 32 30 3a 20 72 75 6e 6e | * patch|20: runn|
|000003f0| 69 6e 67 20 74 61 69 6e | 74 70 65 72 6c 20 65 78 |ing tain|tperl ex|
|00000400| 70 6c 69 63 69 74 6c 79 | 20 6e 6f 77 20 64 6f 65 |plicitly| now doe|
|00000410| 73 20 63 68 65 63 6b 73 | 20 65 76 65 6e 20 69 66 |s checks| even if|
|00000420| 20 24 3c 20 3d 3d 20 24 | 3e 0d 20 2a 20 0d 20 2a | $< == $|>. * . *|
|00000430| 20 52 65 76 69 73 69 6f | 6e 20 34 2e 30 2e 31 2e | Revisio|n 4.0.1.|
|00000440| 34 20 20 39 31 2f 31 31 | 2f 30 35 20 20 31 38 3a |4  91/11|/05  18:|
|00000450| 34 30 3a 35 31 20 20 6c | 77 61 6c 6c 0d 20 2a 20 |40:51  l|wall. * |
|00000460| 70 61 74 63 68 31 31 3a | 20 24 66 6f 6f 20 2e 3d |patch11:| $foo .=|
|00000470| 20 3c 42 41 52 3e 20 63 | 6f 75 6c 64 20 6f 76 65 | <BAR> c|ould ove|
|00000480| 72 72 75 6e 20 6d 61 6c | 6c 6f 63 65 64 20 6d 65 |rrun mal|loced me|
|00000490| 6d 6f 72 79 0d 20 2a 20 | 70 61 74 63 68 31 31 3a |mory. * |patch11:|
|000004a0| 20 5c 24 20 64 69 64 6e | 27 74 20 61 6c 77 61 79 | \$ didn|'t alway|
|000004b0| 73 20 6d 61 6b 65 20 69 | 74 20 74 68 72 6f 75 67 |s make i|t throug|
|000004c0| 68 20 64 6f 75 62 6c 65 | 2d 71 75 6f 74 65 72 20 |h double|-quoter |
|000004d0| 74 6f 20 72 65 67 65 78 | 70 20 72 6f 75 74 69 6e |to regex|p routin|
|000004e0| 65 73 0d 20 2a 20 70 61 | 74 63 68 31 31 3a 20 70 |es. * pa|tch11: p|
|000004f0| 72 65 70 61 72 65 64 20 | 66 6f 72 20 63 74 79 70 |repared |for ctyp|
|00000500| 65 20 69 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e |e implem|entation|
|00000510| 73 20 74 68 61 74 20 64 | 6f 6e 27 74 20 64 65 66 |s that d|on't def|
|00000520| 69 6e 65 20 69 73 61 73 | 63 69 69 28 29 0d 20 2a |ine isas|cii(). *|
|00000530| 20 0d 20 2a 20 52 65 76 | 69 73 69 6f 6e 20 34 2e | . * Rev|ision 4.|
|00000540| 30 2e 31 2e 33 20 20 39 | 31 2f 30 36 2f 31 30 20 |0.1.3  9|1/06/10 |
|00000550| 20 30 31 3a 32 37 3a 35 | 34 20 20 6c 77 61 6c 6c | 01:27:5|4  lwall|
|00000560| 0d 20 2a 20 70 61 74 63 | 68 31 30 3a 20 24 29 20 |. * patc|h10: $) |
|00000570| 61 6e 64 20 24 7c 20 69 | 6e 63 6f 72 72 65 63 74 |and $| i|ncorrect|
|00000580| 6c 79 20 68 61 6e 64 6c | 65 64 20 69 6e 20 72 75 |ly handl|ed in ru|
|00000590| 6e 2d 74 69 6d 65 20 70 | 61 74 74 65 72 6e 73 0d |n-time p|atterns.|
|000005a0| 20 2a 20 0d 20 2a 20 52 | 65 76 69 73 69 6f 6e 20 | * . * R|evision |
|000005b0| 34 2e 30 2e 31 2e 32 20 | 20 39 31 2f 30 36 2f 30 |4.0.1.2 | 91/06/0|
|000005c0| 37 20 20 31 31 3a 35 38 | 3a 31 33 20 20 6c 77 61 |7  11:58|:13  lwa|
|000005d0| 6c 6c 0d 20 2a 20 70 61 | 74 63 68 34 3a 20 6e 65 |ll. * pa|tch4: ne|
|000005e0| 77 20 63 6f 70 79 72 69 | 67 68 74 20 6e 6f 74 69 |w copyri|ght noti|
|000005f0| 63 65 0d 20 2a 20 70 61 | 74 63 68 34 3a 20 74 61 |ce. * pa|tch4: ta|
|00000600| 69 6e 74 20 63 68 65 63 | 6b 20 6f 6e 20 75 6e 64 |int chec|k on und|
|00000610| 65 66 69 6e 65 64 20 73 | 74 72 69 6e 67 20 63 6f |efined s|tring co|
|00000620| 75 6c 64 20 63 61 75 73 | 65 20 63 6f 72 65 20 64 |uld caus|e core d|
|00000630| 75 6d 70 0d 20 2a 20 0d | 20 2a 20 52 65 76 69 73 |ump. * .| * Revis|
|00000640| 69 6f 6e 20 34 2e 30 2e | 31 2e 31 20 20 39 31 2f |ion 4.0.|1.1  91/|
|00000650| 30 34 2f 31 32 20 20 30 | 39 3a 31 35 3a 33 30 20 |04/12  0|9:15:30 |
|00000660| 20 6c 77 61 6c 6c 0d 20 | 2a 20 70 61 74 63 68 31 | lwall. |* patch1|
|00000670| 3a 20 66 69 78 65 64 20 | 75 6e 64 65 66 69 6e 65 |: fixed |undefine|
|00000680| 64 20 65 6e 76 69 72 6f | 6e 20 70 72 6f 62 6c 65 |d enviro|n proble|
|00000690| 6d 0d 20 2a 20 70 61 74 | 63 68 31 3a 20 73 75 62 |m. * pat|ch1: sub|
|000006a0| 73 74 72 28 24 45 4e 56 | 7b 22 50 41 54 48 22 7d |str($ENV|{"PATH"}|
|000006b0| 2c 30 2c 30 29 20 3d 20 | 22 2f 66 6f 6f 3a 22 20 |,0,0) = |"/foo:" |
|000006c0| 64 69 64 6e 27 74 20 6d | 6f 64 69 66 79 20 65 6e |didn't m|odify en|
|000006d0| 76 69 72 6f 6e 6d 65 6e | 74 0d 20 2a 20 70 61 74 |vironmen|t. * pat|
|000006e0| 63 68 31 3a 20 24 66 6f | 6f 20 2e 3d 20 3c 42 41 |ch1: $fo|o .= <BA|
|000006f0| 52 3e 20 63 6f 75 6c 64 | 20 63 61 75 73 65 20 63 |R> could| cause c|
|00000700| 6f 72 65 20 64 75 6d 70 | 20 66 6f 72 20 63 65 72 |ore dump| for cer|
|00000710| 74 61 69 6e 20 6c 65 6e | 67 74 68 73 20 6f 66 20 |tain len|gths of |
|00000720| 24 66 6f 6f 0d 20 2a 20 | 0d 20 2a 20 52 65 76 69 |$foo. * |. * Revi|
|00000730| 73 69 6f 6e 20 34 2e 30 | 20 20 39 31 2f 30 33 2f |sion 4.0|  91/03/|
|00000740| 32 30 20 20 30 31 3a 33 | 39 3a 35 35 20 20 6c 77 |20  01:3|9:55  lw|
|00000750| 61 6c 6c 0d 20 2a 20 34 | 2e 30 20 62 61 73 65 6c |all. * 4|.0 basel|
|00000760| 69 6e 65 2e 0d 20 2a 20 | 0d 20 2a 2f 0d 0d 23 69 |ine.. * |. */..#i|
|00000770| 6e 63 6c 75 64 65 20 22 | 45 58 54 45 52 4e 2e 68 |nclude "|EXTERN.h|
|00000780| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 70 65 72 6c |".#inclu|de "perl|
|00000790| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 70 65 |.h".#inc|lude "pe|
|000007a0| 72 6c 79 2e 68 22 0d 0d | 73 74 61 74 69 63 20 76 |rly.h"..|static v|
|000007b0| 6f 69 64 20 75 63 61 73 | 65 28 29 3b 0d 73 74 61 |oid ucas|e();.sta|
|000007c0| 74 69 63 20 76 6f 69 64 | 20 6c 63 61 73 65 28 29 |tic void| lcase()|
|000007d0| 3b 0d 0d 23 69 66 6e 64 | 65 66 20 73 74 72 5f 67 |;..#ifnd|ef str_g|
|000007e0| 65 74 0d 63 68 61 72 20 | 2a 0d 73 74 72 5f 67 65 |et.char |*.str_ge|
|000007f0| 74 28 73 74 72 29 0d 53 | 54 52 20 2a 73 74 72 3b |t(str).S|TR *str;|
|00000800| 0d 7b 0d 23 69 66 64 65 | 66 20 54 41 49 4e 54 0d |.{.#ifde|f TAINT.|
|00000810| 20 20 20 20 74 61 69 6e | 74 65 64 20 7c 3d 20 73 |    tain|ted |= s|
|00000820| 74 72 2d 3e 73 74 72 5f | 74 61 69 6e 74 65 64 3b |tr->str_|tainted;|
|00000830| 0d 23 65 6e 64 69 66 0d | 20 20 20 20 72 65 74 75 |.#endif.|    retu|
|00000840| 72 6e 20 73 74 72 2d 3e | 73 74 72 5f 70 6f 6b 20 |rn str->|str_pok |
|00000850| 3f 20 73 74 72 2d 3e 73 | 74 72 5f 70 74 72 20 3a |? str->s|tr_ptr :|
|00000860| 20 73 74 72 5f 32 70 74 | 72 28 73 74 72 29 3b 0d | str_2pt|r(str);.|
|00000870| 7d 0d 23 65 6e 64 69 66 | 0d 0d 2f 2a 20 64 6c 62 |}.#endif|../* dlb|
|00000880| 20 2e 2e 2e 20 67 75 65 | 73 73 20 77 65 20 68 61 | ... gue|ss we ha|
|00000890| 76 65 20 61 20 22 63 72 | 69 70 70 6c 65 64 20 63 |ve a "cr|ippled c|
|000008a0| 63 22 2e 0d 20 2a 20 64 | 6c 62 20 74 68 65 20 66 |c".. * d|lb the f|
|000008b0| 6f 6c 6c 6f 77 69 6e 67 | 20 66 75 6e 63 74 69 6f |ollowing| functio|
|000008c0| 6e 73 20 61 72 65 20 75 | 73 75 61 6c 6c 79 20 6d |ns are u|sually m|
|000008d0| 61 63 72 6f 73 2e 0d 20 | 2a 2f 0d 23 69 66 6e 64 |acros.. |*/.#ifnd|
|000008e0| 65 66 20 73 74 72 5f 74 | 72 75 65 0d 69 6e 74 0d |ef str_t|rue.int.|
|000008f0| 73 74 72 5f 74 72 75 65 | 28 53 74 72 29 0d 53 54 |str_true|(Str).ST|
|00000900| 52 20 2a 53 74 72 3b 0d | 7b 0d 09 69 66 20 28 53 |R *Str;.|{..if (S|
|00000910| 74 72 2d 3e 73 74 72 5f | 70 6f 6b 29 20 7b 0d 09 |tr->str_|pok) {..|
|00000920| 20 20 20 20 69 66 20 28 | 2a 53 74 72 2d 3e 73 74 |    if (|*Str->st|
|00000930| 72 5f 70 74 72 20 3e 20 | 27 30 27 20 7c 7c 0d 09 |r_ptr > |'0' ||..|
|00000940| 20 20 20 20 20 20 53 74 | 72 2d 3e 73 74 72 5f 63 |      St|r->str_c|
|00000950| 75 72 20 3e 20 31 20 7c | 7c 0d 09 20 20 20 20 20 |ur > 1 |||..     |
|00000960| 20 28 53 74 72 2d 3e 73 | 74 72 5f 63 75 72 20 26 | (Str->s|tr_cur &|
|00000970| 26 20 2a 53 74 72 2d 3e | 73 74 72 5f 70 74 72 20 |& *Str->|str_ptr |
|00000980| 21 3d 20 27 30 27 29 29 | 0d 09 09 72 65 74 75 72 |!= '0'))|...retur|
|00000990| 6e 20 31 3b 0d 09 20 20 | 20 20 72 65 74 75 72 6e |n 1;..  |  return|
|000009a0| 20 30 3b 0d 09 7d 0d 09 | 69 66 20 28 53 74 72 2d | 0;..}..|if (Str-|
|000009b0| 3e 73 74 72 5f 6e 6f 6b | 29 0d 09 09 72 65 74 75 |>str_nok|)...retu|
|000009c0| 72 6e 20 28 53 74 72 2d | 3e 73 74 72 5f 75 2e 73 |rn (Str-|>str_u.s|
|000009d0| 74 72 5f 6e 76 61 6c 20 | 21 3d 20 30 2e 30 29 3b |tr_nval |!= 0.0);|
|000009e0| 0d 09 72 65 74 75 72 6e | 20 30 3b 0d 7d 0d 23 65 |..return| 0;.}.#e|
|000009f0| 6e 64 69 66 20 2f 2a 20 | 73 74 72 5f 74 72 75 65 |ndif /* |str_true|
|00000a00| 20 2a 2f 0d 0d 23 69 66 | 6e 64 65 66 20 73 74 72 | */..#if|ndef str|
|00000a10| 5f 67 6e 75 6d 0d 64 6f | 75 62 6c 65 20 73 74 72 |_gnum.do|uble str|
|00000a20| 5f 67 6e 75 6d 28 53 74 | 72 29 0d 53 54 52 20 2a |_gnum(St|r).STR *|
|00000a30| 53 74 72 3b 0d 7b 0d 23 | 69 66 64 65 66 20 54 41 |Str;.{.#|ifdef TA|
|00000a40| 49 4e 54 0d 09 74 61 69 | 6e 74 65 64 20 7c 3d 20 |INT..tai|nted |= |
|00000a50| 53 74 72 2d 3e 73 74 72 | 5f 74 61 69 6e 74 65 64 |Str->str|_tainted|
|00000a60| 3b 0d 23 65 6e 64 69 66 | 20 2f 2a 20 54 41 49 4e |;.#endif| /* TAIN|
|00000a70| 54 2a 2f 0d 09 69 66 20 | 28 53 74 72 2d 3e 73 74 |T*/..if |(Str->st|
|00000a80| 72 5f 6e 6f 6b 29 0d 09 | 09 72 65 74 75 72 6e 20 |r_nok)..|.return |
|00000a90| 53 74 72 2d 3e 73 74 72 | 5f 75 2e 73 74 72 5f 6e |Str->str|_u.str_n|
|00000aa0| 76 61 6c 3b 0d 09 72 65 | 74 75 72 6e 20 73 74 72 |val;..re|turn str|
|00000ab0| 5f 32 6e 75 6d 28 53 74 | 72 29 3b 0d 7d 0d 23 65 |_2num(St|r);.}.#e|
|00000ac0| 6e 64 69 66 20 2f 2a 20 | 73 74 72 5f 67 6e 75 6d |ndif /* |str_gnum|
|00000ad0| 20 2a 2f 0d 2f 2a 20 64 | 6c 62 20 2e 2e 2e 20 65 | */./* d|lb ... e|
|00000ae0| 6e 64 20 6f 66 20 63 72 | 75 74 63 68 20 2a 2f 0d |nd of cr|utch */.|
|00000af0| 0d 63 68 61 72 20 2a 0d | 73 74 72 5f 67 72 6f 77 |.char *.|str_grow|
|00000b00| 28 73 74 72 2c 6e 65 77 | 6c 65 6e 29 0d 72 65 67 |(str,new|len).reg|
|00000b10| 69 73 74 65 72 20 53 54 | 52 20 2a 73 74 72 3b 0d |ister ST|R *str;.|
|00000b20| 23 69 66 6e 64 65 66 20 | 44 4f 53 49 53 48 0d 72 |#ifndef |DOSISH.r|
|00000b30| 65 67 69 73 74 65 72 20 | 69 6e 74 20 6e 65 77 6c |egister |int newl|
|00000b40| 65 6e 3b 0d 23 65 6c 73 | 65 0d 75 6e 73 69 67 6e |en;.#els|e.unsign|
|00000b50| 65 64 20 6c 6f 6e 67 20 | 6e 65 77 6c 65 6e 3b 0d |ed long |newlen;.|
|00000b60| 23 65 6e 64 69 66 0d 7b | 0d 20 20 20 20 72 65 67 |#endif.{|.    reg|
|00000b70| 69 73 74 65 72 20 63 68 | 61 72 20 2a 73 20 3d 20 |ister ch|ar *s = |
|00000b80| 73 74 72 2d 3e 73 74 72 | 5f 70 74 72 3b 0d 0d 23 |str->str|_ptr;..#|
|00000b90| 69 66 64 65 66 20 4d 53 | 44 4f 53 0d 20 20 20 20 |ifdef MS|DOS.    |
|00000ba0| 69 66 20 28 6e 65 77 6c | 65 6e 20 3e 3d 20 30 78 |if (newl|en >= 0x|
|00000bb0| 31 30 30 30 30 29 20 7b | 0d 09 66 70 72 69 6e 74 |10000) {|..fprint|
|00000bc0| 66 28 73 74 64 65 72 72 | 2c 20 22 41 6c 6c 6f 63 |f(stderr|, "Alloc|
|00000bd0| 61 74 69 6f 6e 20 74 6f | 6f 20 6c 61 72 67 65 3a |ation to|o large:|
|00000be0| 20 25 6c 78 5c 6e 22 2c | 20 6e 65 77 6c 65 6e 29 | %lx\n",| newlen)|
|00000bf0| 3b 0d 09 65 78 69 74 28 | 31 29 3b 0d 20 20 20 20 |;..exit(|1);.    |
|00000c00| 7d 0d 23 65 6e 64 69 66 | 20 2f 2a 20 4d 53 44 4f |}.#endif| /* MSDO|
|00000c10| 53 20 2a 2f 0d 20 20 20 | 20 69 66 20 28 73 74 72 |S */.   | if (str|
|00000c20| 2d 3e 73 74 72 5f 73 74 | 61 74 65 20 3d 3d 20 53 |->str_st|ate == S|
|00000c30| 53 5f 49 4e 43 52 29 20 | 7b 09 09 2f 2a 20 64 61 |S_INCR) |{../* da|
|00000c40| 74 61 20 62 65 66 6f 72 | 65 20 73 74 72 5f 70 74 |ta befor|e str_pt|
|00000c50| 72 3f 20 2a 2f 0d 09 73 | 74 72 2d 3e 73 74 72 5f |r? */..s|tr->str_|
|00000c60| 6c 65 6e 20 2b 3d 20 73 | 74 72 2d 3e 73 74 72 5f |len += s|tr->str_|
|00000c70| 75 2e 73 74 72 5f 75 73 | 65 66 75 6c 3b 0d 09 73 |u.str_us|eful;..s|
|00000c80| 74 72 2d 3e 73 74 72 5f | 70 74 72 20 2d 3d 20 73 |tr->str_|ptr -= s|
|00000c90| 74 72 2d 3e 73 74 72 5f | 75 2e 73 74 72 5f 75 73 |tr->str_|u.str_us|
|00000ca0| 65 66 75 6c 3b 0d 09 73 | 74 72 2d 3e 73 74 72 5f |eful;..s|tr->str_|
|00000cb0| 75 2e 73 74 72 5f 75 73 | 65 66 75 6c 20 3d 20 30 |u.str_us|eful = 0|
|00000cc0| 4c 3b 0d 09 4d 6f 76 65 | 28 73 2c 20 73 74 72 2d |L;..Move|(s, str-|
|00000cd0| 3e 73 74 72 5f 70 74 72 | 2c 20 73 74 72 2d 3e 73 |>str_ptr|, str->s|
|00000ce0| 74 72 5f 63 75 72 2b 31 | 2c 20 63 68 61 72 29 3b |tr_cur+1|, char);|
|00000cf0| 0d 09 73 20 3d 20 73 74 | 72 2d 3e 73 74 72 5f 70 |..s = st|r->str_p|
|00000d00| 74 72 3b 0d 09 73 74 72 | 2d 3e 73 74 72 5f 73 74 |tr;..str|->str_st|
|00000d10| 61 74 65 20 3d 20 53 53 | 5f 4e 4f 52 4d 3b 09 09 |ate = SS|_NORM;..|
|00000d20| 09 2f 2a 20 6e 6f 72 6d | 61 6c 20 61 67 61 69 6e |./* norm|al again|
|00000d30| 20 2a 2f 0d 09 69 66 20 | 28 6e 65 77 6c 65 6e 20 | */..if |(newlen |
|00000d40| 3e 20 73 74 72 2d 3e 73 | 74 72 5f 6c 65 6e 29 0d |> str->s|tr_len).|
|00000d50| 09 20 20 20 20 6e 65 77 | 6c 65 6e 20 2b 3d 20 31 |.    new|len += 1|
|00000d60| 30 20 2a 20 28 6e 65 77 | 6c 65 6e 20 2d 20 73 74 |0 * (new|len - st|
|00000d70| 72 2d 3e 73 74 72 5f 63 | 75 72 29 3b 20 2f 2a 20 |r->str_c|ur); /* |
|00000d80| 61 76 6f 69 64 20 63 6f | 70 79 20 65 61 63 68 20 |avoid co|py each |
|00000d90| 74 69 6d 65 20 2a 2f 0d | 20 20 20 20 7d 0d 20 20 |time */.|    }.  |
|00000da0| 20 20 69 66 20 28 6e 65 | 77 6c 65 6e 20 3e 20 73 |  if (ne|wlen > s|
|00000db0| 74 72 2d 3e 73 74 72 5f | 6c 65 6e 29 20 7b 09 09 |tr->str_|len) {..|
|00000dc0| 2f 2a 20 6e 65 65 64 20 | 6d 6f 72 65 20 72 6f 6f |/* need |more roo|
|00000dd0| 6d 3f 20 2a 2f 0d 20 20 | 20 20 20 20 20 20 69 66 |m? */.  |      if|
|00000de0| 20 28 73 74 72 2d 3e 73 | 74 72 5f 6c 65 6e 29 0d | (str->s|tr_len).|
|00000df0| 09 20 20 20 20 52 65 6e | 65 77 28 73 2c 6e 65 77 |.    Ren|ew(s,new|
|00000e00| 6c 65 6e 2c 63 68 61 72 | 29 3b 0d 20 20 20 20 20 |len,char|);.     |
|00000e10| 20 20 20 65 6c 73 65 0d | 09 20 20 20 20 4e 65 77 |   else.|.    New|
|00000e20| 28 37 30 33 2c 73 2c 6e | 65 77 6c 65 6e 2c 63 68 |(703,s,n|ewlen,ch|
|00000e30| 61 72 29 3b 0d 09 73 74 | 72 2d 3e 73 74 72 5f 70 |ar);..st|r->str_p|
|00000e40| 74 72 20 3d 20 73 3b 0d | 20 20 20 20 20 20 20 20 |tr = s;.|        |
|00000e50| 73 74 72 2d 3e 73 74 72 | 5f 6c 65 6e 20 3d 20 6e |str->str|_len = n|
|00000e60| 65 77 6c 65 6e 3b 0d 20 | 20 20 20 7d 0d 20 20 20 |ewlen;. |   }.   |
|00000e70| 20 72 65 74 75 72 6e 20 | 73 3b 0d 7d 0d 0d 76 6f | return |s;.}..vo|
|00000e80| 69 64 0d 73 74 72 5f 6e | 75 6d 73 65 74 28 73 74 |id.str_n|umset(st|
|00000e90| 72 2c 6e 75 6d 29 0d 72 | 65 67 69 73 74 65 72 20 |r,num).r|egister |
|00000ea0| 53 54 52 20 2a 73 74 72 | 3b 0d 64 6f 75 62 6c 65 |STR *str|;.double|
|00000eb0| 20 6e 75 6d 3b 0d 7b 0d | 20 20 20 20 69 66 20 28 | num;.{.|    if (|
|00000ec0| 73 74 72 2d 3e 73 74 72 | 5f 70 6f 6b 29 20 7b 0d |str->str|_pok) {.|
|00000ed0| 09 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 20 3d 20 |.str->st|r_pok = |
|00000ee0| 30 3b 09 2f 2a 20 69 6e | 76 61 6c 69 64 61 74 65 |0;./* in|validate|
|00000ef0| 20 70 6f 69 6e 74 65 72 | 20 2a 2f 0d 09 69 66 20 | pointer| */..if |
|00000f00| 28 73 74 72 2d 3e 73 74 | 72 5f 73 74 61 74 65 20 |(str->st|r_state |
|00000f10| 3d 3d 20 53 53 5f 49 4e | 43 52 29 0d 09 20 20 20 |== SS_IN|CR)..   |
|00000f20| 20 53 74 72 5f 47 72 6f | 77 28 73 74 72 2c 30 29 | Str_Gro|w(str,0)|
|00000f30| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 73 74 72 2d |;.    }.|    str-|
|00000f40| 3e 73 74 72 5f 75 2e 73 | 74 72 5f 6e 76 61 6c 20 |>str_u.s|tr_nval |
|00000f50| 3d 20 6e 75 6d 3b 0d 20 | 20 20 20 73 74 72 2d 3e |= num;. |   str->|
|00000f60| 73 74 72 5f 73 74 61 74 | 65 20 3d 20 53 53 5f 4e |str_stat|e = SS_N|
|00000f70| 4f 52 4d 3b 0d 20 20 20 | 20 73 74 72 2d 3e 73 74 |ORM;.   | str->st|
|00000f80| 72 5f 6e 6f 6b 20 3d 20 | 31 3b 09 09 09 2f 2a 20 |r_nok = |1;.../* |
|00000f90| 76 61 6c 69 64 61 74 65 | 20 6e 75 6d 62 65 72 20 |validate| number |
|00000fa0| 2a 2f 0d 23 69 66 64 65 | 66 20 54 41 49 4e 54 0d |*/.#ifde|f TAINT.|
|00000fb0| 20 20 20 20 73 74 72 2d | 3e 73 74 72 5f 74 61 69 |    str-|>str_tai|
|00000fc0| 6e 74 65 64 20 3d 20 74 | 61 69 6e 74 65 64 3b 0d |nted = t|ainted;.|
|00000fd0| 23 65 6e 64 69 66 0d 7d | 0d 0d 63 68 61 72 20 2a |#endif.}|..char *|
|00000fe0| 0d 73 74 72 5f 32 70 74 | 72 28 73 74 72 29 0d 72 |.str_2pt|r(str).r|
|00000ff0| 65 67 69 73 74 65 72 20 | 53 54 52 20 2a 73 74 72 |egister |STR *str|
|00001000| 3b 0d 7b 0d 20 20 20 20 | 72 65 67 69 73 74 65 72 |;.{.    |register|
|00001010| 20 63 68 61 72 20 2a 73 | 3b 0d 20 20 20 20 69 6e | char *s|;.    in|
|00001020| 74 20 6f 6c 64 65 72 72 | 6e 6f 3b 0d 0d 20 20 20 |t olderr|no;..   |
|00001030| 20 69 66 20 28 21 73 74 | 72 29 0d 09 72 65 74 75 | if (!st|r)..retu|
|00001040| 72 6e 20 22 22 3b 0d 20 | 20 20 20 69 66 20 28 73 |rn "";. |   if (s|
|00001050| 74 72 2d 3e 73 74 72 5f | 6e 6f 6b 29 20 7b 0d 09 |tr->str_|nok) {..|
|00001060| 53 54 52 5f 47 52 4f 57 | 28 73 74 72 2c 20 33 30 |STR_GROW|(str, 30|
|00001070| 29 3b 0d 09 73 20 3d 20 | 73 74 72 2d 3e 73 74 72 |);..s = |str->str|
|00001080| 5f 70 74 72 3b 0d 09 6f | 6c 64 65 72 72 6e 6f 20 |_ptr;..o|lderrno |
|00001090| 3d 20 65 72 72 6e 6f 3b | 09 2f 2a 20 73 6f 6d 65 |= errno;|./* some|
|000010a0| 20 58 65 6e 69 78 20 73 | 79 73 74 65 6d 73 20 77 | Xenix s|ystems w|
|000010b0| 69 70 65 20 6f 75 74 20 | 65 72 72 6e 6f 20 68 65 |ipe out |errno he|
|000010c0| 72 65 20 2a 2f 0d 23 69 | 66 20 64 65 66 69 6e 65 |re */.#i|f define|
|000010d0| 64 28 73 63 73 29 20 26 | 26 20 64 65 66 69 6e 65 |d(scs) &|& define|
|000010e0| 64 28 6e 73 33 32 30 30 | 30 29 0d 09 67 63 76 74 |d(ns3200|0)..gcvt|
|000010f0| 28 73 74 72 2d 3e 73 74 | 72 5f 75 2e 73 74 72 5f |(str->st|r_u.str_|
|00001100| 6e 76 61 6c 2c 32 30 2c | 73 29 3b 0d 23 65 6c 73 |nval,20,|s);.#els|
|00001110| 65 0d 23 69 66 64 65 66 | 20 61 70 6f 6c 6c 6f 0d |e.#ifdef| apollo.|
|00001120| 09 69 66 20 28 73 74 72 | 2d 3e 73 74 72 5f 75 2e |.if (str|->str_u.|
|00001130| 73 74 72 5f 6e 76 61 6c | 20 3d 3d 20 30 2e 30 29 |str_nval| == 0.0)|
|00001140| 0d 09 20 20 20 20 28 76 | 6f 69 64 29 73 74 72 63 |..    (v|oid)strc|
|00001150| 70 79 28 73 2c 22 30 22 | 29 3b 0d 09 65 6c 73 65 |py(s,"0"|);..else|
|00001160| 0d 23 65 6e 64 69 66 20 | 2f 2a 61 70 6f 6c 6c 6f |.#endif |/*apollo|
|00001170| 2a 2f 0d 09 28 76 6f 69 | 64 29 73 70 72 69 6e 74 |*/..(voi|d)sprint|
|00001180| 66 28 73 2c 22 25 2e 32 | 30 67 22 2c 73 74 72 2d |f(s,"%.2|0g",str-|
|00001190| 3e 73 74 72 5f 75 2e 73 | 74 72 5f 6e 76 61 6c 29 |>str_u.s|tr_nval)|
|000011a0| 3b 0d 23 65 6e 64 69 66 | 20 2f 2a 73 63 73 2a 2f |;.#endif| /*scs*/|
|000011b0| 0d 09 65 72 72 6e 6f 20 | 3d 20 6f 6c 64 65 72 72 |..errno |= olderr|
|000011c0| 6e 6f 3b 0d 09 77 68 69 | 6c 65 20 28 2a 73 29 20 |no;..whi|le (*s) |
|000011d0| 73 2b 2b 3b 0d 23 69 66 | 64 65 66 20 68 63 78 0d |s++;.#if|def hcx.|
|000011e0| 09 69 66 20 28 73 5b 2d | 31 5d 20 3d 3d 20 27 2e |.if (s[-|1] == '.|
|000011f0| 27 29 0d 09 20 20 20 20 | 73 2d 2d 3b 0d 23 65 6e |')..    |s--;.#en|
|00001200| 64 69 66 0d 20 20 20 20 | 7d 0d 20 20 20 20 65 6c |dif.    |}.    el|
|00001210| 73 65 20 7b 0d 09 69 66 | 20 28 73 74 72 20 3d 3d |se {..if| (str ==|
|00001220| 20 26 73 74 72 5f 75 6e | 64 65 66 29 0d 09 20 20 | &str_un|def)..  |
|00001230| 20 20 72 65 74 75 72 6e | 20 4e 6f 3b 0d 09 69 66 |  return| No;..if|
|00001240| 20 28 64 6f 77 61 72 6e | 29 0d 09 20 20 20 20 77 | (dowarn|)..    w|
|00001250| 61 72 6e 28 22 55 73 65 | 20 6f 66 20 75 6e 69 6e |arn("Use| of unin|
|00001260| 69 74 69 61 6c 69 7a 65 | 64 20 76 61 72 69 61 62 |itialize|d variab|
|00001270| 6c 65 22 29 3b 0d 09 53 | 54 52 5f 47 52 4f 57 28 |le");..S|TR_GROW(|
|00001280| 73 74 72 2c 20 33 30 29 | 3b 0d 09 73 20 3d 20 73 |str, 30)|;..s = s|
|00001290| 74 72 2d 3e 73 74 72 5f | 70 74 72 3b 0d 20 20 20 |tr->str_|ptr;.   |
|000012a0| 20 7d 0d 20 20 20 20 2a | 73 20 3d 20 27 5c 30 27 | }.    *|s = '\0'|
|000012b0| 3b 0d 20 20 20 20 73 74 | 72 2d 3e 73 74 72 5f 63 |;.    st|r->str_c|
|000012c0| 75 72 20 3d 20 73 20 2d | 20 73 74 72 2d 3e 73 74 |ur = s -| str->st|
|000012d0| 72 5f 70 74 72 3b 0d 20 | 20 20 20 73 74 72 2d 3e |r_ptr;. |   str->|
|000012e0| 73 74 72 5f 70 6f 6b 20 | 3d 20 31 3b 0d 23 69 66 |str_pok |= 1;.#if|
|000012f0| 64 65 66 20 44 45 42 55 | 47 47 49 4e 47 0d 23 69 |def DEBU|GGING.#i|
|00001300| 66 64 65 66 20 6d 61 63 | 69 6e 74 6f 73 68 0d 20 |fdef mac|intosh. |
|00001310| 20 20 20 69 66 20 28 64 | 65 62 75 67 20 26 20 33 |   if (d|ebug & 3|
|00001320| 32 29 0d 09 66 70 72 69 | 6e 74 66 28 70 65 72 6c |2)..fpri|ntf(perl|
|00001330| 64 62 67 2c 22 30 78 25 | 6c 78 20 70 74 72 28 25 |dbg,"0x%|lx ptr(%|
|00001340| 73 29 5c 6e 22 2c 73 74 | 72 2c 73 74 72 2d 3e 73 |s)\n",st|r,str->s|
|00001350| 74 72 5f 70 74 72 29 3b | 0d 23 65 6c 73 65 0d 20 |tr_ptr);|.#else. |
|00001360| 20 20 20 69 66 20 28 64 | 65 62 75 67 20 26 20 33 |   if (d|ebug & 3|
|00001370| 32 29 0d 09 66 70 72 69 | 6e 74 66 28 73 74 64 65 |2)..fpri|ntf(stde|
|00001380| 72 72 2c 22 30 78 25 6c | 78 20 70 74 72 28 25 73 |rr,"0x%l|x ptr(%s|
|00001390| 29 5c 6e 22 2c 73 74 72 | 2c 73 74 72 2d 3e 73 74 |)\n",str|,str->st|
|000013a0| 72 5f 70 74 72 29 3b 0d | 23 65 6e 64 69 66 0d 23 |r_ptr);.|#endif.#|
|000013b0| 65 6e 64 69 66 0d 20 20 | 20 20 72 65 74 75 72 6e |endif.  |  return|
|000013c0| 20 73 74 72 2d 3e 73 74 | 72 5f 70 74 72 3b 0d 7d | str->st|r_ptr;.}|
|000013d0| 0d 0d 64 6f 75 62 6c 65 | 0d 73 74 72 5f 32 6e 75 |..double|.str_2nu|
|000013e0| 6d 28 73 74 72 29 0d 72 | 65 67 69 73 74 65 72 20 |m(str).r|egister |
|000013f0| 53 54 52 20 2a 73 74 72 | 3b 0d 7b 0d 20 20 20 20 |STR *str|;.{.    |
|00001400| 69 66 20 28 21 73 74 72 | 29 0d 09 72 65 74 75 72 |if (!str|)..retur|
|00001410| 6e 20 30 2e 30 3b 0d 20 | 20 20 20 69 66 20 28 73 |n 0.0;. |   if (s|
|00001420| 74 72 2d 3e 73 74 72 5f | 73 74 61 74 65 20 3d 3d |tr->str_|state ==|
|00001430| 20 53 53 5f 49 4e 43 52 | 29 0d 09 53 74 72 5f 47 | SS_INCR|)..Str_G|
|00001440| 72 6f 77 28 73 74 72 2c | 30 29 3b 20 20 20 20 20 |row(str,|0);     |
|00001450| 20 20 2f 2a 20 6a 75 73 | 74 20 66 6f 72 63 65 20 |  /* jus|t force |
|00001460| 63 6f 70 79 20 64 6f 77 | 6e 20 2a 2f 0d 20 20 20 |copy dow|n */.   |
|00001470| 20 73 74 72 2d 3e 73 74 | 72 5f 73 74 61 74 65 20 | str->st|r_state |
|00001480| 3d 20 53 53 5f 4e 4f 52 | 4d 3b 0d 20 20 20 20 69 |= SS_NOR|M;.    i|
|00001490| 66 20 28 73 74 72 2d 3e | 73 74 72 5f 6c 65 6e 20 |f (str->|str_len |
|000014a0| 26 26 20 73 74 72 2d 3e | 73 74 72 5f 70 6f 6b 29 |&& str->|str_pok)|
|000014b0| 0d 09 73 74 72 2d 3e 73 | 74 72 5f 75 2e 73 74 72 |..str->s|tr_u.str|
|000014c0| 5f 6e 76 61 6c 20 3d 20 | 61 74 6f 66 28 73 74 72 |_nval = |atof(str|
|000014d0| 2d 3e 73 74 72 5f 70 74 | 72 29 3b 0d 20 20 20 20 |->str_pt|r);.    |
|000014e0| 65 6c 73 65 20 20 7b 0d | 09 69 66 20 28 73 74 72 |else  {.|.if (str|
|000014f0| 20 3d 3d 20 26 73 74 72 | 5f 75 6e 64 65 66 29 0d | == &str|_undef).|
|00001500| 09 20 20 20 20 72 65 74 | 75 72 6e 20 30 2e 30 3b |.    ret|urn 0.0;|
|00001510| 0d 09 69 66 20 28 64 6f | 77 61 72 6e 29 0d 09 20 |..if (do|warn).. |
|00001520| 20 20 20 77 61 72 6e 28 | 22 55 73 65 20 6f 66 20 |   warn(|"Use of |
|00001530| 75 6e 69 6e 69 74 69 61 | 6c 69 7a 65 64 20 76 61 |uninitia|lized va|
|00001540| 72 69 61 62 6c 65 22 29 | 3b 0d 09 73 74 72 2d 3e |riable")|;..str->|
|00001550| 73 74 72 5f 75 2e 73 74 | 72 5f 6e 76 61 6c 20 3d |str_u.st|r_nval =|
|00001560| 20 30 2e 30 3b 0d 20 20 | 20 20 7d 0d 20 20 20 20 | 0.0;.  |  }.    |
|00001570| 73 74 72 2d 3e 73 74 72 | 5f 6e 6f 6b 20 3d 20 31 |str->str|_nok = 1|
|00001580| 3b 0d 23 69 66 64 65 66 | 20 44 45 42 55 47 47 49 |;.#ifdef| DEBUGGI|
|00001590| 4e 47 0d 23 69 66 64 65 | 66 20 6d 61 63 69 6e 74 |NG.#ifde|f macint|
|000015a0| 6f 73 68 0d 20 20 20 20 | 69 66 20 28 64 65 62 75 |osh.    |if (debu|
|000015b0| 67 20 26 20 33 32 29 0d | 09 66 70 72 69 6e 74 66 |g & 32).|.fprintf|
|000015c0| 28 70 65 72 6c 64 62 67 | 2c 22 30 78 25 6c 78 20 |(perldbg|,"0x%lx |
|000015d0| 6e 75 6d 28 25 67 29 5c | 6e 22 2c 73 74 72 2c 73 |num(%g)\|n",str,s|
|000015e0| 74 72 2d 3e 73 74 72 5f | 75 2e 73 74 72 5f 6e 76 |tr->str_|u.str_nv|
|000015f0| 61 6c 29 3b 0d 23 65 6c | 73 65 0d 20 20 20 20 69 |al);.#el|se.    i|
|00001600| 66 20 28 64 65 62 75 67 | 20 26 20 33 32 29 0d 09 |f (debug| & 32)..|
|00001610| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 22 |fprintf(|stderr,"|
|00001620| 30 78 25 6c 78 20 6e 75 | 6d 28 25 67 29 5c 6e 22 |0x%lx nu|m(%g)\n"|
|00001630| 2c 73 74 72 2c 73 74 72 | 2d 3e 73 74 72 5f 75 2e |,str,str|->str_u.|
|00001640| 73 74 72 5f 6e 76 61 6c | 29 3b 0d 23 65 6e 64 69 |str_nval|);.#endi|
|00001650| 66 0d 23 65 6e 64 69 66 | 0d 20 20 20 20 72 65 74 |f.#endif|.    ret|
|00001660| 75 72 6e 20 73 74 72 2d | 3e 73 74 72 5f 75 2e 73 |urn str-|>str_u.s|
|00001670| 74 72 5f 6e 76 61 6c 3b | 0d 7d 0d 0d 2f 2a 20 4e |tr_nval;|.}../* N|
|00001680| 6f 74 65 3a 20 73 74 72 | 5f 73 73 65 74 28 29 20 |ote: str|_sset() |
|00001690| 73 68 6f 75 6c 64 20 6e | 6f 74 20 62 65 20 63 61 |should n|ot be ca|
|000016a0| 6c 6c 65 64 20 77 69 74 | 68 20 61 20 73 6f 75 72 |lled wit|h a sour|
|000016b0| 63 65 20 73 74 72 69 6e | 67 20 74 68 61 74 20 6e |ce strin|g that n|
|000016c0| 65 65 64 73 0d 20 2a 20 | 62 65 20 72 65 75 73 65 |eeds. * |be reuse|
|000016d0| 64 2c 20 73 69 6e 63 65 | 20 69 74 20 6d 61 79 20 |d, since| it may |
|000016e0| 64 65 73 74 72 6f 79 20 | 74 68 65 20 73 6f 75 72 |destroy |the sour|
|000016f0| 63 65 20 73 74 72 69 6e | 67 20 69 66 20 69 74 20 |ce strin|g if it |
|00001700| 69 73 20 6d 61 72 6b 65 | 64 0d 20 2a 20 61 73 20 |is marke|d. * as |
|00001710| 74 65 6d 70 6f 72 61 72 | 79 2e 0d 20 2a 2f 0d 0d |temporar|y.. */..|
|00001720| 76 6f 69 64 0d 73 74 72 | 5f 73 73 65 74 28 64 73 |void.str|_sset(ds|
|00001730| 74 72 2c 73 73 74 72 29 | 0d 53 54 52 20 2a 64 73 |tr,sstr)|.STR *ds|
|00001740| 74 72 3b 0d 72 65 67 69 | 73 74 65 72 20 53 54 52 |tr;.regi|ster STR|
|00001750| 20 2a 73 73 74 72 3b 0d | 7b 0d 23 69 66 64 65 66 | *sstr;.|{.#ifdef|
|00001760| 20 54 41 49 4e 54 0d 20 | 20 20 20 69 66 20 28 73 | TAINT. |   if (s|
|00001770| 73 74 72 29 0d 09 74 61 | 69 6e 74 65 64 20 7c 3d |str)..ta|inted |=|
|00001780| 20 73 73 74 72 2d 3e 73 | 74 72 5f 74 61 69 6e 74 | sstr->s|tr_taint|
|00001790| 65 64 3b 0d 23 65 6e 64 | 69 66 0d 20 20 20 20 69 |ed;.#end|if.    i|
|000017a0| 66 20 28 73 73 74 72 20 | 3d 3d 20 64 73 74 72 20 |f (sstr |== dstr |
|000017b0| 7c 7c 20 64 73 74 72 20 | 3d 3d 20 26 73 74 72 5f ||| dstr |== &str_|
|000017c0| 75 6e 64 65 66 29 0d 09 | 72 65 74 75 72 6e 3b 0d |undef)..|return;.|
|000017d0| 20 20 20 20 69 66 20 28 | 21 73 73 74 72 29 0d 09 |    if (|!sstr)..|
|000017e0| 64 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 20 3d 20 |dstr->st|r_pok = |
|000017f0| 64 73 74 72 2d 3e 73 74 | 72 5f 6e 6f 6b 20 3d 20 |dstr->st|r_nok = |
|00001800| 30 3b 0d 20 20 20 20 65 | 6c 73 65 20 69 66 20 28 |0;.    e|lse if (|
|00001810| 73 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 29 20 7b |sstr->st|r_pok) {|
|00001820| 0d 0d 09 2f 2a 0d 09 20 | 2a 20 43 68 65 63 6b 20 |.../*.. |* Check |
|00001830| 74 6f 20 73 65 65 20 69 | 66 20 77 65 20 63 61 6e |to see i|f we can|
|00001840| 20 6a 75 73 74 20 73 77 | 69 70 65 20 74 68 65 20 | just sw|ipe the |
|00001850| 73 74 72 69 6e 67 2e 20 | 20 49 66 20 73 6f 2c 20 |string. | If so, |
|00001860| 69 74 27 73 20 61 0d 09 | 20 2a 20 70 6f 73 73 69 |it's a..| * possi|
|00001870| 62 6c 65 20 73 6d 61 6c | 6c 20 6c 6f 73 65 20 6f |ble smal|l lose o|
|00001880| 6e 20 73 68 6f 72 74 20 | 73 74 72 69 6e 67 73 2c |n short |strings,|
|00001890| 20 62 75 74 20 61 20 62 | 69 67 20 77 69 6e 20 6f | but a b|ig win o|
|000018a0| 6e 20 6c 6f 6e 67 20 6f | 6e 65 73 2e 0d 09 20 2a |n long o|nes... *|
|000018b0| 20 49 74 20 6d 69 67 68 | 74 20 65 76 65 6e 20 62 | It migh|t even b|
|000018c0| 65 20 61 20 77 69 6e 20 | 6f 6e 20 73 68 6f 72 74 |e a win |on short|
|000018d0| 20 73 74 72 69 6e 67 73 | 20 69 66 20 64 73 74 72 | strings| if dstr|
|000018e0| 2d 3e 73 74 72 5f 70 74 | 72 0d 09 20 2a 20 68 61 |->str_pt|r.. * ha|
|000018f0| 73 20 74 6f 20 62 65 20 | 61 6c 6c 6f 63 61 74 65 |s to be |allocate|
|00001900| 64 20 61 6e 64 20 73 73 | 74 72 2d 3e 73 74 72 5f |d and ss|tr->str_|
|00001910| 70 74 72 20 68 61 73 20 | 74 6f 20 62 65 20 66 72 |ptr has |to be fr|
|00001920| 65 65 64 2e 0d 09 20 2a | 2f 0d 0d 09 69 66 20 28 |eed... *|/...if (|
|00001930| 73 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 20 26 20 |sstr->st|r_pok & |
|00001940| 53 50 5f 54 45 4d 50 29 | 20 7b 09 09 2f 2a 20 73 |SP_TEMP)| {../* s|
|00001950| 6c 61 74 65 64 20 66 6f | 72 20 66 72 65 65 20 61 |lated fo|r free a|
|00001960| 6e 79 77 61 79 3f 20 2a | 2f 0d 09 20 20 20 20 69 |nyway? *|/..    i|
|00001970| 66 20 28 64 73 74 72 2d | 3e 73 74 72 5f 70 74 72 |f (dstr-|>str_ptr|
|00001980| 29 20 7b 0d 09 09 69 66 | 20 28 64 73 74 72 2d 3e |) {...if| (dstr->|
|00001990| 73 74 72 5f 73 74 61 74 | 65 20 3d 3d 20 53 53 5f |str_stat|e == SS_|
|000019a0| 49 4e 43 52 29 0d 09 09 | 20 20 20 20 64 73 74 72 |INCR)...|    dstr|
|000019b0| 2d 3e 73 74 72 5f 70 74 | 72 20 2d 3d 20 64 73 74 |->str_pt|r -= dst|
|000019c0| 72 2d 3e 73 74 72 5f 75 | 2e 73 74 72 5f 75 73 65 |r->str_u|.str_use|
|000019d0| 66 75 6c 3b 0d 09 09 53 | 61 66 65 66 72 65 65 28 |ful;...S|afefree(|
|000019e0| 64 73 74 72 2d 3e 73 74 | 72 5f 70 74 72 29 3b 0d |dstr->st|r_ptr);.|
|000019f0| 09 20 20 20 20 7d 0d 09 | 20 20 20 20 64 73 74 72 |.    }..|    dstr|
|00001a00| 2d 3e 73 74 72 5f 70 74 | 72 20 3d 20 73 73 74 72 |->str_pt|r = sstr|
|00001a10| 2d 3e 73 74 72 5f 70 74 | 72 3b 0d 09 20 20 20 20 |->str_pt|r;..    |
|00001a20| 64 73 74 72 2d 3e 73 74 | 72 5f 6c 65 6e 20 3d 20 |dstr->st|r_len = |
|00001a30| 73 73 74 72 2d 3e 73 74 | 72 5f 6c 65 6e 3b 0d 09 |sstr->st|r_len;..|
|00001a40| 20 20 20 20 64 73 74 72 | 2d 3e 73 74 72 5f 63 75 |    dstr|->str_cu|
|00001a50| 72 20 3d 20 73 73 74 72 | 2d 3e 73 74 72 5f 63 75 |r = sstr|->str_cu|
|00001a60| 72 3b 0d 09 20 20 20 20 | 64 73 74 72 2d 3e 73 74 |r;..    |dstr->st|
|00001a70| 72 5f 73 74 61 74 65 20 | 3d 20 73 73 74 72 2d 3e |r_state |= sstr->|
|00001a80| 73 74 72 5f 73 74 61 74 | 65 3b 0d 09 20 20 20 20 |str_stat|e;..    |
|00001a90| 64 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 20 3d 20 |dstr->st|r_pok = |
|00001aa0| 73 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 20 26 20 |sstr->st|r_pok & |
|00001ab0| 7e 53 50 5f 54 45 4d 50 | 3b 0d 23 69 66 64 65 66 |~SP_TEMP|;.#ifdef|
|00001ac0| 20 54 41 49 4e 54 0d 09 | 20 20 20 20 64 73 74 72 | TAINT..|    dstr|
|00001ad0| 2d 3e 73 74 72 5f 74 61 | 69 6e 74 65 64 20 3d 20 |->str_ta|inted = |
|00001ae0| 73 73 74 72 2d 3e 73 74 | 72 5f 74 61 69 6e 74 65 |sstr->st|r_tainte|
|00001af0| 64 3b 0d 23 65 6e 64 69 | 66 0d 09 20 20 20 20 73 |d;.#endi|f..    s|
|00001b00| 73 74 72 2d 3e 73 74 72 | 5f 70 74 72 20 3d 20 4e |str->str|_ptr = N|
|00001b10| 75 6c 6c 63 68 3b 0d 09 | 20 20 20 20 73 73 74 72 |ullch;..|    sstr|
|00001b20| 2d 3e 73 74 72 5f 6c 65 | 6e 20 3d 20 30 3b 0d 09 |->str_le|n = 0;..|
|00001b30| 20 20 20 20 73 73 74 72 | 2d 3e 73 74 72 5f 70 6f |    sstr|->str_po|
|00001b40| 6b 20 3d 20 30 3b 09 09 | 09 2f 2a 20 77 69 70 65 |k = 0;..|./* wipe|
|00001b50| 20 6f 75 74 20 61 6e 79 | 20 77 65 69 72 64 20 66 | out any| weird f|
|00001b60| 6c 61 67 73 20 2a 2f 0d | 09 20 20 20 20 73 73 74 |lags */.|.    sst|
|00001b70| 72 2d 3e 73 74 72 5f 73 | 74 61 74 65 20 3d 20 30 |r->str_s|tate = 0|
|00001b80| 3b 09 09 2f 2a 20 73 6f | 20 73 73 74 72 20 66 72 |;../* so| sstr fr|
|00001b90| 65 65 73 20 75 6e 65 76 | 65 6e 74 66 75 6c 6c 79 |ees unev|entfully|
|00001ba0| 20 2a 2f 0d 09 7d 0d 09 | 65 6c 73 65 20 7b 09 09 | */..}..|else {..|
|00001bb0| 09 09 09 2f 2a 20 68 61 | 76 65 20 74 6f 20 63 6f |.../* ha|ve to co|
|00001bc0| 70 79 20 61 63 74 75 61 | 6c 20 73 74 72 69 6e 67 |py actua|l string|
|00001bd0| 20 2a 2f 0d 09 20 20 20 | 20 69 66 20 28 64 73 74 | */..   | if (dst|
|00001be0| 72 2d 3e 73 74 72 5f 70 | 74 72 29 20 7b 0d 09 09 |r->str_p|tr) {...|
|00001bf0| 69 66 20 28 64 73 74 72 | 2d 3e 73 74 72 5f 73 74 |if (dstr|->str_st|
|00001c00| 61 74 65 20 3d 3d 20 53 | 53 5f 49 4e 43 52 29 20 |ate == S|S_INCR) |
|00001c10| 7b 0d 09 09 09 53 74 72 | 5f 47 72 6f 77 28 64 73 |{....Str|_Grow(ds|
|00001c20| 74 72 2c 30 29 3b 0d 09 | 09 7d 0d 09 20 20 20 20 |tr,0);..|.}..    |
|00001c30| 7d 0d 09 20 20 20 20 73 | 74 72 5f 6e 73 65 74 28 |}..    s|tr_nset(|
|00001c40| 64 73 74 72 2c 73 73 74 | 72 2d 3e 73 74 72 5f 70 |dstr,sst|r->str_p|
|00001c50| 74 72 2c 73 73 74 72 2d | 3e 73 74 72 5f 63 75 72 |tr,sstr-|>str_cur|
|00001c60| 29 3b 0d 09 7d 0d 09 2f | 2a 53 55 50 50 52 45 53 |);..}../|*SUPPRES|
|00001c70| 53 20 35 36 30 2a 2f 0d | 09 69 66 20 28 64 73 74 |S 560*/.|.if (dst|
|00001c80| 72 2d 3e 73 74 72 5f 6e | 6f 6b 20 3d 20 73 73 74 |r->str_n|ok = sst|
|00001c90| 72 2d 3e 73 74 72 5f 6e | 6f 6b 29 0d 09 20 20 20 |r->str_n|ok)..   |
|00001ca0| 20 64 73 74 72 2d 3e 73 | 74 72 5f 75 2e 73 74 72 | dstr->s|tr_u.str|
|00001cb0| 5f 6e 76 61 6c 20 3d 20 | 73 73 74 72 2d 3e 73 74 |_nval = |sstr->st|
|00001cc0| 72 5f 75 2e 73 74 72 5f | 6e 76 61 6c 3b 0d 09 65 |r_u.str_|nval;..e|
|00001cd0| 6c 73 65 20 7b 0d 23 69 | 66 64 65 66 20 53 54 52 |lse {.#i|fdef STR|
|00001ce0| 55 43 54 43 4f 50 59 0d | 09 20 20 20 20 64 73 74 |UCTCOPY.|.    dst|
|00001cf0| 72 2d 3e 73 74 72 5f 75 | 20 3d 20 73 73 74 72 2d |r->str_u| = sstr-|
|00001d00| 3e 73 74 72 5f 75 3b 0d | 23 65 6c 73 65 0d 09 20 |>str_u;.|#else.. |
|00001d10| 20 20 20 64 73 74 72 2d | 3e 73 74 72 5f 75 2e 73 |   dstr-|>str_u.s|
|00001d20| 74 72 5f 6e 76 61 6c 20 | 3d 20 73 73 74 72 2d 3e |tr_nval |= sstr->|
|00001d30| 73 74 72 5f 75 2e 73 74 | 72 5f 6e 76 61 6c 3b 0d |str_u.st|r_nval;.|
|00001d40| 23 65 6e 64 69 66 0d 09 | 20 20 20 20 69 66 20 28 |#endif..|    if (|
|00001d50| 64 73 74 72 2d 3e 73 74 | 72 5f 63 75 72 20 3d 3d |dstr->st|r_cur ==|
|00001d60| 20 73 69 7a 65 6f 66 28 | 53 54 42 50 29 29 20 7b | sizeof(|STBP)) {|
|00001d70| 0d 09 09 63 68 61 72 20 | 2a 74 6d 70 73 20 3d 20 |...char |*tmps = |
|00001d80| 64 73 74 72 2d 3e 73 74 | 72 5f 70 74 72 3b 0d 0d |dstr->st|r_ptr;..|
|00001d90| 09 09 69 66 20 28 2a 74 | 6d 70 73 20 3d 3d 20 27 |..if (*t|mps == '|
|00001da0| 53 27 20 26 26 20 62 63 | 6d 70 28 74 6d 70 73 2c |S' && bc|mp(tmps,|
|00001db0| 22 53 74 42 22 2c 34 29 | 20 3d 3d 20 30 29 20 7b |"StB",4)| == 0) {|
|00001dc0| 0d 09 09 20 20 20 20 69 | 66 20 28 64 73 74 72 2d |...    i|f (dstr-|
|00001dd0| 3e 73 74 72 5f 6d 61 67 | 69 63 20 26 26 20 64 73 |>str_mag|ic && ds|
|00001de0| 74 72 2d 3e 73 74 72 5f | 6d 61 67 69 63 2d 3e 73 |tr->str_|magic->s|
|00001df0| 74 72 5f 72 61 72 65 20 | 3d 3d 20 27 58 27 29 20 |tr_rare |== 'X') |
|00001e00| 7b 0d 09 09 09 73 74 72 | 5f 66 72 65 65 28 64 73 |{....str|_free(ds|
|00001e10| 74 72 2d 3e 73 74 72 5f | 6d 61 67 69 63 29 3b 0d |tr->str_|magic);.|
|00001e20| 09 09 09 64 73 74 72 2d | 3e 73 74 72 5f 6d 61 67 |...dstr-|>str_mag|
|00001e30| 69 63 20 3d 20 4e 75 6c | 6c 73 74 72 3b 0d 09 09 |ic = Nul|lstr;...|
|00001e40| 20 20 20 20 7d 0d 09 09 | 20 20 20 20 69 66 20 28 |    }...|    if (|
|00001e50| 21 64 73 74 72 2d 3e 73 | 74 72 5f 6d 61 67 69 63 |!dstr->s|tr_magic|
|00001e60| 29 20 7b 0d 09 09 09 64 | 73 74 72 2d 3e 73 74 72 |) {....d|str->str|
|00001e70| 5f 6d 61 67 69 63 20 3d | 20 73 74 72 5f 73 6d 61 |_magic =| str_sma|
|00001e80| 6b 65 28 73 73 74 72 2d | 3e 73 74 72 5f 6d 61 67 |ke(sstr-|>str_mag|
|00001e90| 69 63 29 3b 0d 09 09 09 | 64 73 74 72 2d 3e 73 74 |ic);....|dstr->st|
|00001ea0| 72 5f 6d 61 67 69 63 2d | 3e 73 74 72 5f 72 61 72 |r_magic-|>str_rar|
|00001eb0| 65 20 3d 20 27 58 27 3b | 0d 09 09 20 20 20 20 7d |e = 'X';|...    }|
|00001ec0| 0d 09 09 7d 0d 09 20 20 | 20 20 7d 0d 09 7d 0d 20 |...}..  |  }..}. |
|00001ed0| 20 20 20 7d 0d 20 20 20 | 20 65 6c 73 65 20 69 66 |   }.   | else if|
|00001ee0| 20 28 73 73 74 72 2d 3e | 73 74 72 5f 6e 6f 6b 29 | (sstr->|str_nok)|
|00001ef0| 0d 09 73 74 72 5f 6e 75 | 6d 73 65 74 28 64 73 74 |..str_nu|mset(dst|
|00001f00| 72 2c 73 73 74 72 2d 3e | 73 74 72 5f 75 2e 73 74 |r,sstr->|str_u.st|
|00001f10| 72 5f 6e 76 61 6c 29 3b | 0d 20 20 20 20 65 6c 73 |r_nval);|.    els|
|00001f20| 65 20 7b 0d 09 69 66 20 | 28 64 73 74 72 2d 3e 73 |e {..if |(dstr->s|
|00001f30| 74 72 5f 73 74 61 74 65 | 20 3d 3d 20 53 53 5f 49 |tr_state| == SS_I|
|00001f40| 4e 43 52 29 0d 09 20 20 | 20 20 53 74 72 5f 47 72 |NCR)..  |  Str_Gr|
|00001f50| 6f 77 28 64 73 74 72 2c | 30 29 3b 20 20 20 20 20 |ow(dstr,|0);     |
|00001f60| 20 20 2f 2a 20 6a 75 73 | 74 20 66 6f 72 63 65 20 |  /* jus|t force |
|00001f70| 63 6f 70 79 20 64 6f 77 | 6e 20 2a 2f 0d 0d 23 69 |copy dow|n */..#i|
|00001f80| 66 64 65 66 20 53 54 52 | 55 43 54 43 4f 50 59 0d |fdef STR|UCTCOPY.|
|00001f90| 09 64 73 74 72 2d 3e 73 | 74 72 5f 75 20 3d 20 73 |.dstr->s|tr_u = s|
|00001fa0| 73 74 72 2d 3e 73 74 72 | 5f 75 3b 0d 23 65 6c 73 |str->str|_u;.#els|
|00001fb0| 65 0d 09 64 73 74 72 2d | 3e 73 74 72 5f 75 2e 73 |e..dstr-|>str_u.s|
|00001fc0| 74 72 5f 6e 76 61 6c 20 | 3d 20 73 73 74 72 2d 3e |tr_nval |= sstr->|
|00001fd0| 73 74 72 5f 75 2e 73 74 | 72 5f 6e 76 61 6c 3b 0d |str_u.st|r_nval;.|
|00001fe0| 23 65 6e 64 69 66 0d 09 | 64 73 74 72 2d 3e 73 74 |#endif..|dstr->st|
|00001ff0| 72 5f 70 6f 6b 20 3d 20 | 64 73 74 72 2d 3e 73 74 |r_pok = |dstr->st|
|00002000| 72 5f 6e 6f 6b 20 3d 20 | 30 3b 0d 20 20 20 20 7d |r_nok = |0;.    }|
|00002010| 0d 7d 0d 0d 76 6f 69 64 | 0d 73 74 72 5f 6e 73 65 |.}..void|.str_nse|
|00002020| 74 28 73 74 72 2c 70 74 | 72 2c 6c 65 6e 29 0d 72 |t(str,pt|r,len).r|
|00002030| 65 67 69 73 74 65 72 20 | 53 54 52 20 2a 73 74 72 |egister |STR *str|
|00002040| 3b 0d 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |;.regist|er char |
|00002050| 2a 70 74 72 3b 0d 72 65 | 67 69 73 74 65 72 20 53 |*ptr;.re|gister S|
|00002060| 54 52 4c 45 4e 20 6c 65 | 6e 3b 0d 7b 0d 20 20 20 |TRLEN le|n;.{.   |
|00002070| 20 69 66 20 28 73 74 72 | 20 3d 3d 20 26 73 74 72 | if (str| == &str|
|00002080| 5f 75 6e 64 65 66 29 0d | 09 72 65 74 75 72 6e 3b |_undef).|.return;|
|00002090| 0d 20 20 20 20 53 54 52 | 5f 47 52 4f 57 28 73 74 |.    STR|_GROW(st|
|000020a0| 72 2c 20 6c 65 6e 20 2b | 20 31 29 3b 0d 20 20 20 |r, len +| 1);.   |
|000020b0| 20 69 66 20 28 70 74 72 | 29 0d 09 4d 6f 76 65 28 | if (ptr|)..Move(|
|000020c0| 70 74 72 2c 73 74 72 2d | 3e 73 74 72 5f 70 74 72 |ptr,str-|>str_ptr|
|000020d0| 2c 6c 65 6e 2c 63 68 61 | 72 29 3b 0d 20 20 20 20 |,len,cha|r);.    |
|000020e0| 73 74 72 2d 3e 73 74 72 | 5f 63 75 72 20 3d 20 6c |str->str|_cur = l|
|000020f0| 65 6e 3b 0d 20 20 20 20 | 2a 28 73 74 72 2d 3e 73 |en;.    |*(str->s|
|00002100| 74 72 5f 70 74 72 2b 73 | 74 72 2d 3e 73 74 72 5f |tr_ptr+s|tr->str_|
|00002110| 63 75 72 29 20 3d 20 27 | 5c 30 27 3b 0d 20 20 20 |cur) = '|\0';.   |
|00002120| 20 73 74 72 2d 3e 73 74 | 72 5f 6e 6f 6b 20 3d 20 | str->st|r_nok = |
|00002130| 30 3b 09 09 2f 2a 20 69 | 6e 76 61 6c 69 64 61 74 |0;../* i|nvalidat|
|00002140| 65 20 6e 75 6d 62 65 72 | 20 2a 2f 0d 20 20 20 20 |e number| */.    |
|00002150| 73 74 72 2d 3e 73 74 72 | 5f 70 6f 6b 20 3d 20 31 |str->str|_pok = 1|
|00002160| 3b 09 09 2f 2a 20 76 61 | 6c 69 64 61 74 65 20 70 |;../* va|lidate p|
|00002170| 6f 69 6e 74 65 72 20 2a | 2f 0d 23 69 66 64 65 66 |ointer *|/.#ifdef|
|00002180| 20 54 41 49 4e 54 0d 20 | 20 20 20 73 74 72 2d 3e | TAINT. |   str->|
|00002190| 73 74 72 5f 74 61 69 6e | 74 65 64 20 3d 20 74 61 |str_tain|ted = ta|
|000021a0| 69 6e 74 65 64 3b 0d 23 | 65 6e 64 69 66 0d 7d 0d |inted;.#|endif.}.|
|000021b0| 0d 76 6f 69 64 0d 73 74 | 72 5f 73 65 74 28 73 74 |.void.st|r_set(st|
|000021c0| 72 2c 70 74 72 29 0d 72 | 65 67 69 73 74 65 72 20 |r,ptr).r|egister |
|000021d0| 53 54 52 20 2a 73 74 72 | 3b 0d 72 65 67 69 73 74 |STR *str|;.regist|
|000021e0| 65 72 20 63 68 61 72 20 | 2a 70 74 72 3b 0d 7b 0d |er char |*ptr;.{.|
|000021f0| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 53 54 52 |    regi|ster STR|
|00002200| 4c 45 4e 20 6c 65 6e 3b | 0d 0d 20 20 20 20 69 66 |LEN len;|..    if|
|00002210| 20 28 73 74 72 20 3d 3d | 20 26 73 74 72 5f 75 6e | (str ==| &str_un|
|00002220| 64 65 66 29 0d 09 72 65 | 74 75 72 6e 3b 0d 20 20 |def)..re|turn;.  |
|00002230| 20 20 69 66 20 28 21 70 | 74 72 29 0d 09 70 74 72 |  if (!p|tr)..ptr|
|00002240| 20 3d 20 22 22 3b 0d 20 | 20 20 20 6c 65 6e 20 3d | = "";. |   len =|
|00002250| 20 73 74 72 6c 65 6e 28 | 70 74 72 29 3b 0d 20 20 | strlen(|ptr);.  |
|00002260| 20 20 53 54 52 5f 47 52 | 4f 57 28 73 74 72 2c 20 |  STR_GR|OW(str, |
|00002270| 6c 65 6e 20 2b 20 31 29 | 3b 0d 20 20 20 20 4d 6f |len + 1)|;.    Mo|
|00002280| 76 65 28 70 74 72 2c 73 | 74 72 2d 3e 73 74 72 5f |ve(ptr,s|tr->str_|
|00002290| 70 74 72 2c 6c 65 6e 2b | 31 2c 63 68 61 72 29 3b |ptr,len+|1,char);|
|000022a0| 0d 20 20 20 20 73 74 72 | 2d 3e 73 74 72 5f 63 75 |.    str|->str_cu|
|000022b0| 72 20 3d 20 6c 65 6e 3b | 0d 20 20 20 20 73 74 72 |r = len;|.    str|
|000022c0| 2d 3e 73 74 72 5f 6e 6f | 6b 20 3d 20 30 3b 09 09 |->str_no|k = 0;..|
|000022d0| 2f 2a 20 69 6e 76 61 6c | 69 64 61 74 65 20 6e 75 |/* inval|idate nu|
|000022e0| 6d 62 65 72 20 2a 2f 0d | 20 20 20 20 73 74 72 2d |mber */.|    str-|
|000022f0| 3e 73 74 72 5f 70 6f 6b | 20 3d 20 31 3b 09 09 2f |>str_pok| = 1;../|
|00002300| 2a 20 76 61 6c 69 64 61 | 74 65 20 70 6f 69 6e 74 |* valida|te point|
|00002310| 65 72 20 2a 2f 0d 23 69 | 66 64 65 66 20 54 41 49 |er */.#i|fdef TAI|
|00002320| 4e 54 0d 20 20 20 20 73 | 74 72 2d 3e 73 74 72 5f |NT.    s|tr->str_|
|00002330| 74 61 69 6e 74 65 64 20 | 3d 20 74 61 69 6e 74 65 |tainted |= tainte|
|00002340| 64 3b 0d 23 65 6e 64 69 | 66 0d 7d 0d 0d 76 6f 69 |d;.#endi|f.}..voi|
|00002350| 64 0d 73 74 72 5f 63 68 | 6f 70 28 73 74 72 2c 70 |d.str_ch|op(str,p|
|00002360| 74 72 29 09 2f 2a 20 6c | 69 6b 65 20 73 65 74 20 |tr)./* l|ike set |
|00002370| 62 75 74 20 61 73 73 75 | 6d 69 6e 67 20 70 74 72 |but assu|ming ptr|
|00002380| 20 69 73 20 69 6e 20 73 | 74 72 20 2a 2f 0d 72 65 | is in s|tr */.re|
|00002390| 67 69 73 74 65 72 20 53 | 54 52 20 2a 73 74 72 3b |gister S|TR *str;|
|000023a0| 0d 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 2a |.registe|r char *|
|000023b0| 70 74 72 3b 0d 7b 0d 20 | 20 20 20 72 65 67 69 73 |ptr;.{. |   regis|
|000023c0| 74 65 72 20 53 54 52 4c | 45 4e 20 64 65 6c 74 61 |ter STRL|EN delta|
|000023d0| 3b 0d 0d 20 20 20 20 69 | 66 20 28 21 70 74 72 20 |;..    i|f (!ptr |
|000023e0| 7c 7c 20 21 28 73 74 72 | 2d 3e 73 74 72 5f 70 6f ||| !(str|->str_po|
|000023f0| 6b 29 29 0d 09 72 65 74 | 75 72 6e 3b 0d 20 20 20 |k))..ret|urn;.   |
|00002400| 20 64 65 6c 74 61 20 3d | 20 70 74 72 20 2d 20 73 | delta =| ptr - s|
|00002410| 74 72 2d 3e 73 74 72 5f | 70 74 72 3b 0d 20 20 20 |tr->str_|ptr;.   |
|00002420| 20 73 74 72 2d 3e 73 74 | 72 5f 6c 65 6e 20 2d 3d | str->st|r_len -=|
|00002430| 20 64 65 6c 74 61 3b 0d | 20 20 20 20 73 74 72 2d | delta;.|    str-|
|00002440| 3e 73 74 72 5f 63 75 72 | 20 2d 3d 20 64 65 6c 74 |>str_cur| -= delt|
|00002450| 61 3b 0d 20 20 20 20 73 | 74 72 2d 3e 73 74 72 5f |a;.    s|tr->str_|
|00002460| 70 74 72 20 2b 3d 20 64 | 65 6c 74 61 3b 0d 20 20 |ptr += d|elta;.  |
|00002470| 20 20 69 66 20 28 73 74 | 72 2d 3e 73 74 72 5f 73 |  if (st|r->str_s|
|00002480| 74 61 74 65 20 3d 3d 20 | 53 53 5f 49 4e 43 52 29 |tate == |SS_INCR)|
|00002490| 0d 09 73 74 72 2d 3e 73 | 74 72 5f 75 2e 73 74 72 |..str->s|tr_u.str|
|000024a0| 5f 75 73 65 66 75 6c 20 | 2b 3d 20 64 65 6c 74 61 |_useful |+= delta|
|000024b0| 3b 0d 20 20 20 20 65 6c | 73 65 20 7b 0d 09 73 74 |;.    el|se {..st|
|000024c0| 72 2d 3e 73 74 72 5f 75 | 2e 73 74 72 5f 75 73 65 |r->str_u|.str_use|
|000024d0| 66 75 6c 20 3d 20 64 65 | 6c 74 61 3b 0d 09 73 74 |ful = de|lta;..st|
|000024e0| 72 2d 3e 73 74 72 5f 73 | 74 61 74 65 20 3d 20 53 |r->str_s|tate = S|
|000024f0| 53 5f 49 4e 43 52 3b 0d | 20 20 20 20 7d 0d 20 20 |S_INCR;.|    }.  |
|00002500| 20 20 73 74 72 2d 3e 73 | 74 72 5f 6e 6f 6b 20 3d |  str->s|tr_nok =|
|00002510| 20 30 3b 09 09 2f 2a 20 | 69 6e 76 61 6c 69 64 61 | 0;../* |invalida|
|00002520| 74 65 20 6e 75 6d 62 65 | 72 20 2a 2f 0d 20 20 20 |te numbe|r */.   |
|00002530| 20 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 20 3d 20 | str->st|r_pok = |
|00002540| 31 3b 09 09 2f 2a 20 76 | 61 6c 69 64 61 74 65 20 |1;../* v|alidate |
|00002550| 70 6f 69 6e 74 65 72 20 | 28 61 6e 64 20 75 6e 73 |pointer |(and uns|
|00002560| 74 75 64 79 20 73 74 72 | 29 20 2a 2f 0d 7d 0d 0d |tudy str|) */.}..|
|00002570| 76 6f 69 64 0d 73 74 72 | 5f 6e 63 61 74 28 73 74 |void.str|_ncat(st|
|00002580| 72 2c 70 74 72 2c 6c 65 | 6e 29 0d 72 65 67 69 73 |r,ptr,le|n).regis|
|00002590| 74 65 72 20 53 54 52 20 | 2a 73 74 72 3b 0d 72 65 |ter STR |*str;.re|
|000025a0| 67 69 73 74 65 72 20 63 | 68 61 72 20 2a 70 74 72 |gister c|har *ptr|
|000025b0| 3b 0d 72 65 67 69 73 74 | 65 72 20 53 54 52 4c 45 |;.regist|er STRLE|
|000025c0| 4e 20 6c 65 6e 3b 0d 7b | 0d 20 20 20 20 69 66 20 |N len;.{|.    if |
|000025d0| 28 73 74 72 20 3d 3d 20 | 26 73 74 72 5f 75 6e 64 |(str == |&str_und|
|000025e0| 65 66 29 0d 09 72 65 74 | 75 72 6e 3b 0d 20 20 20 |ef)..ret|urn;.   |
|000025f0| 20 69 66 20 28 21 28 73 | 74 72 2d 3e 73 74 72 5f | if (!(s|tr->str_|
|00002600| 70 6f 6b 29 29 0d 09 28 | 76 6f 69 64 29 73 74 72 |pok))..(|void)str|
|00002610| 5f 32 70 74 72 28 73 74 | 72 29 3b 0d 20 20 20 20 |_2ptr(st|r);.    |
|00002620| 53 54 52 5f 47 52 4f 57 | 28 73 74 72 2c 20 73 74 |STR_GROW|(str, st|
|00002630| 72 2d 3e 73 74 72 5f 63 | 75 72 20 2b 20 6c 65 6e |r->str_c|ur + len|
|00002640| 20 2b 20 31 29 3b 0d 20 | 20 20 20 4d 6f 76 65 28 | + 1);. |   Move(|
|00002650| 70 74 72 2c 73 74 72 2d | 3e 73 74 72 5f 70 74 72 |ptr,str-|>str_ptr|
|00002660| 2b 73 74 72 2d 3e 73 74 | 72 5f 63 75 72 2c 6c 65 |+str->st|r_cur,le|
|00002670| 6e 2c 63 68 61 72 29 3b | 0d 20 20 20 20 73 74 72 |n,char);|.    str|
|00002680| 2d 3e 73 74 72 5f 63 75 | 72 20 2b 3d 20 6c 65 6e |->str_cu|r += len|
|00002690| 3b 0d 20 20 20 20 2a 28 | 73 74 72 2d 3e 73 74 72 |;.    *(|str->str|
|000026a0| 5f 70 74 72 2b 73 74 72 | 2d 3e 73 74 72 5f 63 75 |_ptr+str|->str_cu|
|000026b0| 72 29 20 3d 20 27 5c 30 | 27 3b 0d 20 20 20 20 73 |r) = '\0|';.    s|
|000026c0| 74 72 2d 3e 73 74 72 5f | 6e 6f 6b 20 3d 20 30 3b |tr->str_|nok = 0;|
|000026d0| 09 09 2f 2a 20 69 6e 76 | 61 6c 69 64 61 74 65 20 |../* inv|alidate |
|000026e0| 6e 75 6d 62 65 72 20 2a | 2f 0d 20 20 20 20 73 74 |number *|/.    st|
|000026f0| 72 2d 3e 73 74 72 5f 70 | 6f 6b 20 3d 20 31 3b 09 |r->str_p|ok = 1;.|
|00002700| 09 2f 2a 20 76 61 6c 69 | 64 61 74 65 20 70 6f 69 |./* vali|date poi|
|00002710| 6e 74 65 72 20 2a 2f 0d | 23 69 66 64 65 66 20 54 |nter */.|#ifdef T|
|00002720| 41 49 4e 54 0d 20 20 20 | 20 73 74 72 2d 3e 73 74 |AINT.   | str->st|
|00002730| 72 5f 74 61 69 6e 74 65 | 64 20 7c 3d 20 74 61 69 |r_tainte|d |= tai|
|00002740| 6e 74 65 64 3b 0d 23 65 | 6e 64 69 66 0d 7d 0d 0d |nted;.#e|ndif.}..|
|00002750| 76 6f 69 64 0d 73 74 72 | 5f 73 63 61 74 28 64 73 |void.str|_scat(ds|
|00002760| 74 72 2c 73 73 74 72 29 | 0d 53 54 52 20 2a 64 73 |tr,sstr)|.STR *ds|
|00002770| 74 72 3b 0d 72 65 67 69 | 73 74 65 72 20 53 54 52 |tr;.regi|ster STR|
|00002780| 20 2a 73 73 74 72 3b 0d | 7b 0d 20 20 20 20 69 66 | *sstr;.|{.    if|
|00002790| 20 28 21 73 73 74 72 29 | 0d 09 72 65 74 75 72 6e | (!sstr)|..return|
|000027a0| 3b 0d 23 69 66 64 65 66 | 20 54 41 49 4e 54 0d 20 |;.#ifdef| TAINT. |
|000027b0| 20 20 20 74 61 69 6e 74 | 65 64 20 7c 3d 20 73 73 |   taint|ed |= ss|
|000027c0| 74 72 2d 3e 73 74 72 5f | 74 61 69 6e 74 65 64 3b |tr->str_|tainted;|
|000027d0| 0d 23 65 6e 64 69 66 0d | 20 20 20 20 69 66 20 28 |.#endif.|    if (|
|000027e0| 21 28 73 73 74 72 2d 3e | 73 74 72 5f 70 6f 6b 29 |!(sstr->|str_pok)|
|000027f0| 29 0d 09 28 76 6f 69 64 | 29 73 74 72 5f 32 70 74 |)..(void|)str_2pt|
|00002800| 72 28 73 73 74 72 29 3b | 0d 20 20 20 20 69 66 20 |r(sstr);|.    if |
|00002810| 28 73 73 74 72 29 0d 09 | 73 74 72 5f 6e 63 61 74 |(sstr)..|str_ncat|
|00002820| 28 64 73 74 72 2c 73 73 | 74 72 2d 3e 73 74 72 5f |(dstr,ss|tr->str_|
|00002830| 70 74 72 2c 73 73 74 72 | 2d 3e 73 74 72 5f 63 75 |ptr,sstr|->str_cu|
|00002840| 72 29 3b 0d 7d 0d 0d 76 | 6f 69 64 0d 73 74 72 5f |r);.}..v|oid.str_|
|00002850| 63 61 74 28 73 74 72 2c | 70 74 72 29 0d 72 65 67 |cat(str,|ptr).reg|
|00002860| 69 73 74 65 72 20 53 54 | 52 20 2a 73 74 72 3b 0d |ister ST|R *str;.|
|00002870| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 2a 70 |register| char *p|
|00002880| 74 72 3b 0d 7b 0d 20 20 | 20 20 72 65 67 69 73 74 |tr;.{.  |  regist|
|00002890| 65 72 20 53 54 52 4c 45 | 4e 20 6c 65 6e 3b 0d 0d |er STRLE|N len;..|
|000028a0| 20 20 20 20 69 66 20 28 | 73 74 72 20 3d 3d 20 26 |    if (|str == &|
|000028b0| 73 74 72 5f 75 6e 64 65 | 66 29 0d 09 72 65 74 75 |str_unde|f)..retu|
|000028c0| 72 6e 3b 0d 20 20 20 20 | 69 66 20 28 21 70 74 72 |rn;.    |if (!ptr|
|000028d0| 29 0d 09 72 65 74 75 72 | 6e 3b 0d 20 20 20 20 69 |)..retur|n;.    i|
|000028e0| 66 20 28 21 28 73 74 72 | 2d 3e 73 74 72 5f 70 6f |f (!(str|->str_po|
|000028f0| 6b 29 29 0d 09 28 76 6f | 69 64 29 73 74 72 5f 32 |k))..(vo|id)str_2|
|00002900| 70 74 72 28 73 74 72 29 | 3b 0d 20 20 20 20 6c 65 |ptr(str)|;.    le|
|00002910| 6e 20 3d 20 73 74 72 6c | 65 6e 28 70 74 72 29 3b |n = strl|en(ptr);|
|00002920| 0d 20 20 20 20 53 54 52 | 5f 47 52 4f 57 28 73 74 |.    STR|_GROW(st|
|00002930| 72 2c 20 73 74 72 2d 3e | 73 74 72 5f 63 75 72 20 |r, str->|str_cur |
|00002940| 2b 20 6c 65 6e 20 2b 20 | 31 29 3b 0d 20 20 20 20 |+ len + |1);.    |
|00002950| 4d 6f 76 65 28 70 74 72 | 2c 73 74 72 2d 3e 73 74 |Move(ptr|,str->st|
|00002960| 72 5f 70 74 72 2b 73 74 | 72 2d 3e 73 74 72 5f 63 |r_ptr+st|r->str_c|
|00002970| 75 72 2c 6c 65 6e 2b 31 | 2c 63 68 61 72 29 3b 0d |ur,len+1|,char);.|
|00002980| 20 20 20 20 73 74 72 2d | 3e 73 74 72 5f 63 75 72 |    str-|>str_cur|
|00002990| 20 2b 3d 20 6c 65 6e 3b | 0d 20 20 20 20 73 74 72 | += len;|.    str|
|000029a0| 2d 3e 73 74 72 5f 6e 6f | 6b 20 3d 20 30 3b 09 09 |->str_no|k = 0;..|
|000029b0| 2f 2a 20 69 6e 76 61 6c | 69 64 61 74 65 20 6e 75 |/* inval|idate nu|
|000029c0| 6d 62 65 72 20 2a 2f 0d | 20 20 20 20 73 74 72 2d |mber */.|    str-|
|000029d0| 3e 73 74 72 5f 70 6f 6b | 20 3d 20 31 3b 09 09 2f |>str_pok| = 1;../|
|000029e0| 2a 20 76 61 6c 69 64 61 | 74 65 20 70 6f 69 6e 74 |* valida|te point|
|000029f0| 65 72 20 2a 2f 0d 23 69 | 66 64 65 66 20 54 41 49 |er */.#i|fdef TAI|
|00002a00| 4e 54 0d 20 20 20 20 73 | 74 72 2d 3e 73 74 72 5f |NT.    s|tr->str_|
|00002a10| 74 61 69 6e 74 65 64 20 | 7c 3d 20 74 61 69 6e 74 |tainted ||= taint|
|00002a20| 65 64 3b 0d 23 65 6e 64 | 69 66 0d 7d 0d 0d 63 68 |ed;.#end|if.}..ch|
|00002a30| 61 72 20 2a 0d 73 74 72 | 5f 61 70 70 65 6e 64 5f |ar *.str|_append_|
|00002a40| 74 69 6c 6c 28 73 74 72 | 2c 66 72 6f 6d 2c 66 72 |till(str|,from,fr|
|00002a50| 6f 6d 65 6e 64 2c 64 65 | 6c 69 6d 2c 6b 65 65 70 |omend,de|lim,keep|
|00002a60| 6c 69 73 74 29 0d 72 65 | 67 69 73 74 65 72 20 53 |list).re|gister S|
|00002a70| 54 52 20 2a 73 74 72 3b | 0d 72 65 67 69 73 74 65 |TR *str;|.registe|
|00002a80| 72 20 63 68 61 72 20 2a | 66 72 6f 6d 3b 0d 72 65 |r char *|from;.re|
|00002a90| 67 69 73 74 65 72 20 63 | 68 61 72 20 2a 66 72 6f |gister c|har *fro|
|00002aa0| 6d 65 6e 64 3b 0d 72 65 | 67 69 73 74 65 72 20 69 |mend;.re|gister i|
|00002ab0| 6e 74 20 64 65 6c 69 6d | 3b 0d 63 68 61 72 20 2a |nt delim|;.char *|
|00002ac0| 6b 65 65 70 6c 69 73 74 | 3b 0d 7b 0d 20 20 20 20 |keeplist|;.{.    |
|00002ad0| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 2a 74 |register| char *t|
|00002ae0| 6f 3b 0d 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |o;.    r|egister |
|00002af0| 53 54 52 4c 45 4e 20 6c | 65 6e 3b 0d 0d 20 20 20 |STRLEN l|en;..   |
|00002b00| 20 69 66 20 28 73 74 72 | 20 3d 3d 20 26 73 74 72 | if (str| == &str|
|00002b10| 5f 75 6e 64 65 66 29 0d | 09 72 65 74 75 72 6e 20 |_undef).|.return |
|00002b20| 4e 75 6c 6c 63 68 3b 0d | 20 20 20 20 69 66 20 28 |Nullch;.|    if (|
|00002b30| 21 66 72 6f 6d 29 0d 09 | 72 65 74 75 72 6e 20 4e |!from)..|return N|
|00002b40| 75 6c 6c 63 68 3b 0d 20 | 20 20 20 6c 65 6e 20 3d |ullch;. |   len =|
|00002b50| 20 66 72 6f 6d 65 6e 64 | 20 2d 20 66 72 6f 6d 3b | fromend| - from;|
|00002b60| 0d 20 20 20 20 53 54 52 | 5f 47 52 4f 57 28 73 74 |.    STR|_GROW(st|
|00002b70| 72 2c 20 73 74 72 2d 3e | 73 74 72 5f 63 75 72 20 |r, str->|str_cur |
|00002b80| 2b 20 6c 65 6e 20 2b 20 | 31 29 3b 0d 20 20 20 20 |+ len + |1);.    |
|00002b90| 73 74 72 2d 3e 73 74 72 | 5f 6e 6f 6b 20 3d 20 30 |str->str|_nok = 0|
|00002ba0| 3b 09 09 2f 2a 20 69 6e | 76 61 6c 69 64 61 74 65 |;../* in|validate|
|00002bb0| 20 6e 75 6d 62 65 72 20 | 2a 2f 0d 20 20 20 20 73 | number |*/.    s|
|00002bc0| 74 72 2d 3e 73 74 72 5f | 70 6f 6b 20 3d 20 31 3b |tr->str_|pok = 1;|
|00002bd0| 09 09 2f 2a 20 76 61 6c | 69 64 61 74 65 20 70 6f |../* val|idate po|
|00002be0| 69 6e 74 65 72 20 2a 2f | 0d 20 20 20 20 74 6f 20 |inter */|.    to |
|00002bf0| 3d 20 73 74 72 2d 3e 73 | 74 72 5f 70 74 72 2b 73 |= str->s|tr_ptr+s|
|00002c00| 74 72 2d 3e 73 74 72 5f | 63 75 72 3b 0d 20 20 20 |tr->str_|cur;.   |
|00002c10| 20 66 6f 72 20 28 3b 20 | 66 72 6f 6d 20 3c 20 66 | for (; |from < f|
|00002c20| 72 6f 6d 65 6e 64 3b 20 | 66 72 6f 6d 2b 2b 2c 74 |romend; |from++,t|
|00002c30| 6f 2b 2b 29 20 7b 0d 09 | 69 66 20 28 2a 66 72 6f |o++) {..|if (*fro|
|00002c40| 6d 20 3d 3d 20 27 5c 5c | 27 20 26 26 20 66 72 6f |m == '\\|' && fro|
|00002c50| 6d 2b 31 20 3c 20 66 72 | 6f 6d 65 6e 64 20 26 26 |m+1 < fr|omend &&|
|00002c60| 20 64 65 6c 69 6d 20 21 | 3d 20 27 5c 5c 27 29 20 | delim !|= '\\') |
|00002c70| 7b 0d 09 20 20 20 20 69 | 66 20 28 21 6b 65 65 70 |{..    i|f (!keep|
|00002c80| 6c 69 73 74 29 20 7b 0d | 09 09 69 66 20 28 66 72 |list) {.|..if (fr|
|00002c90| 6f 6d 5b 31 5d 20 3d 3d | 20 64 65 6c 69 6d 20 7c |om[1] ==| delim ||
|00002ca0| 7c 20 66 72 6f 6d 5b 31 | 5d 20 3d 3d 20 27 5c 5c || from[1|] == '\\|
|00002cb0| 27 29 0d 09 09 20 20 20 | 20 66 72 6f 6d 2b 2b 3b |')...   | from++;|
|00002cc0| 0d 09 09 65 6c 73 65 0d | 09 09 20 20 20 20 2a 74 |...else.|..    *t|
|00002cd0| 6f 2b 2b 20 3d 20 2a 66 | 72 6f 6d 2b 2b 3b 0d 09 |o++ = *f|rom++;..|
|00002ce0| 20 20 20 20 7d 0d 09 20 | 20 20 20 65 6c 73 65 20 |    }.. |   else |
|00002cf0| 69 66 20 28 66 72 6f 6d | 5b 31 5d 20 26 26 20 69 |if (from|[1] && i|
|00002d00| 6e 64 65 78 28 6b 65 65 | 70 6c 69 73 74 2c 66 72 |ndex(kee|plist,fr|
|00002d10| 6f 6d 5b 31 5d 29 29 0d | 09 09 2a 74 6f 2b 2b 20 |om[1])).|..*to++ |
|00002d20| 3d 20 2a 66 72 6f 6d 2b | 2b 3b 0d 09 20 20 20 20 |= *from+|+;..    |
|00002d30| 65 6c 73 65 0d 09 09 66 | 72 6f 6d 2b 2b 3b 0d 09 |else...f|rom++;..|
|00002d40| 7d 0d 09 65 6c 73 65 20 | 69 66 20 28 2a 66 72 6f |}..else |if (*fro|
|00002d50| 6d 20 3d 3d 20 64 65 6c | 69 6d 29 0d 09 20 20 20 |m == del|im)..   |
|00002d60| 20 62 72 65 61 6b 3b 0d | 09 2a 74 6f 20 3d 20 2a | break;.|.*to = *|
|00002d70| 66 72 6f 6d 3b 0d 20 20 | 20 20 7d 0d 20 20 20 20 |from;.  |  }.    |
|00002d80| 2a 74 6f 20 3d 20 27 5c | 30 27 3b 0d 20 20 20 20 |*to = '\|0';.    |
|00002d90| 73 74 72 2d 3e 73 74 72 | 5f 63 75 72 20 3d 20 74 |str->str|_cur = t|
|00002da0| 6f 20 2d 20 73 74 72 2d | 3e 73 74 72 5f 70 74 72 |o - str-|>str_ptr|
|00002db0| 3b 0d 20 20 20 20 72 65 | 74 75 72 6e 20 66 72 6f |;.    re|turn fro|
|00002dc0| 6d 3b 0d 7d 0d 0d 53 54 | 52 20 2a 0d 23 69 66 64 |m;.}..ST|R *.#ifd|
|00002dd0| 65 66 20 4c 45 41 4b 54 | 45 53 54 0d 73 74 72 5f |ef LEAKT|EST.str_|
|00002de0| 6e 65 77 28 78 2c 6c 65 | 6e 29 0d 69 6e 74 20 78 |new(x,le|n).int x|
|00002df0| 3b 0d 23 65 6c 73 65 0d | 73 74 72 5f 6e 65 77 28 |;.#else.|str_new(|
|00002e00| 6c 65 6e 29 0d 23 65 6e | 64 69 66 0d 53 54 52 4c |len).#en|dif.STRL|
|00002e10| 45 4e 20 6c 65 6e 3b 0d | 7b 0d 20 20 20 20 72 65 |EN len;.|{.    re|
|00002e20| 67 69 73 74 65 72 20 53 | 54 52 20 2a 73 74 72 3b |gister S|TR *str;|
|00002e30| 0d 20 20 20 20 0d 20 20 | 20 20 69 66 20 28 66 72 |.    .  |  if (fr|
|00002e40| 65 65 73 74 72 72 6f 6f | 74 29 20 7b 0d 09 73 74 |eestrroo|t) {..st|
|00002e50| 72 20 3d 20 66 72 65 65 | 73 74 72 72 6f 6f 74 3b |r = free|strroot;|
|00002e60| 0d 09 66 72 65 65 73 74 | 72 72 6f 6f 74 20 3d 20 |..freest|rroot = |
|00002e70| 73 74 72 2d 3e 73 74 72 | 5f 6d 61 67 69 63 3b 0d |str->str|_magic;.|
|00002e80| 09 73 74 72 2d 3e 73 74 | 72 5f 6d 61 67 69 63 20 |.str->st|r_magic |
|00002e90| 3d 20 4e 75 6c 6c 73 74 | 72 3b 0d 09 73 74 72 2d |= Nullst|r;..str-|
|00002ea0| 3e 73 74 72 5f 73 74 61 | 74 65 20 3d 20 53 53 5f |>str_sta|te = SS_|
|00002eb0| 4e 4f 52 4d 3b 0d 20 20 | 20 20 7d 0d 20 20 20 20 |NORM;.  |  }.    |
|00002ec0| 65 6c 73 65 20 7b 0d 09 | 4e 65 77 7a 28 37 30 30 |else {..|Newz(700|
|00002ed0| 2b 78 2c 73 74 72 2c 31 | 2c 53 54 52 29 3b 0d 20 |+x,str,1|,STR);. |
|00002ee0| 20 20 20 7d 0d 20 20 20 | 20 69 66 20 28 6c 65 6e |   }.   | if (len|
|00002ef0| 29 0d 09 53 54 52 5f 47 | 52 4f 57 28 73 74 72 2c |)..STR_G|ROW(str,|
|00002f00| 20 6c 65 6e 20 2b 20 31 | 29 3b 0d 20 20 20 20 72 | len + 1|);.    r|
|00002f10| 65 74 75 72 6e 20 73 74 | 72 3b 0d 7d 0d 0d 76 6f |eturn st|r;.}..vo|
|00002f20| 69 64 0d 73 74 72 5f 6d | 61 67 69 63 28 73 74 72 |id.str_m|agic(str|
|00002f30| 2c 20 73 74 61 62 2c 20 | 68 6f 77 2c 20 6e 61 6d |, stab, |how, nam|
|00002f40| 65 2c 20 6e 61 6d 6c 65 | 6e 29 0d 72 65 67 69 73 |e, namle|n).regis|
|00002f50| 74 65 72 20 53 54 52 20 | 2a 73 74 72 3b 0d 53 54 |ter STR |*str;.ST|
|00002f60| 41 42 20 2a 73 74 61 62 | 3b 0d 69 6e 74 20 68 6f |AB *stab|;.int ho|
|00002f70| 77 3b 0d 63 68 61 72 20 | 2a 6e 61 6d 65 3b 0d 53 |w;.char |*name;.S|
|00002f80| 54 52 4c 45 4e 20 6e 61 | 6d 6c 65 6e 3b 0d 7b 0d |TRLEN na|mlen;.{.|
|00002f90| 20 20 20 20 69 66 20 28 | 73 74 72 20 3d 3d 20 26 |    if (|str == &|
|00002fa0| 73 74 72 5f 75 6e 64 65 | 66 20 7c 7c 20 73 74 72 |str_unde|f || str|
|00002fb0| 2d 3e 73 74 72 5f 6d 61 | 67 69 63 29 0d 09 72 65 |->str_ma|gic)..re|
|00002fc0| 74 75 72 6e 3b 0d 20 20 | 20 20 73 74 72 2d 3e 73 |turn;.  |  str->s|
|00002fd0| 74 72 5f 6d 61 67 69 63 | 20 3d 20 53 74 72 5f 6e |tr_magic| = Str_n|
|00002fe0| 65 77 28 37 35 2c 6e 61 | 6d 6c 65 6e 29 3b 0d 20 |ew(75,na|mlen);. |
|00002ff0| 20 20 20 73 74 72 20 3d | 20 73 74 72 2d 3e 73 74 |   str =| str->st|
|00003000| 72 5f 6d 61 67 69 63 3b | 0d 20 20 20 20 73 74 72 |r_magic;|.    str|
|00003010| 2d 3e 73 74 72 5f 75 2e | 73 74 72 5f 73 74 61 62 |->str_u.|str_stab|
|00003020| 20 3d 20 73 74 61 62 3b | 0d 20 20 20 20 73 74 72 | = stab;|.    str|
|00003030| 2d 3e 73 74 72 5f 72 61 | 72 65 20 3d 20 68 6f 77 |->str_ra|re = how|
|00003040| 3b 0d 20 20 20 20 69 66 | 20 28 6e 61 6d 65 29 0d |;.    if| (name).|
|00003050| 09 73 74 72 5f 6e 73 65 | 74 28 73 74 72 2c 6e 61 |.str_nse|t(str,na|
|00003060| 6d 65 2c 6e 61 6d 6c 65 | 6e 29 3b 0d 7d 0d 0d 76 |me,namle|n);.}..v|
|00003070| 6f 69 64 0d 73 74 72 5f | 69 6e 73 65 72 74 28 62 |oid.str_|insert(b|
|00003080| 69 67 73 74 72 2c 6f 66 | 66 73 65 74 2c 6c 65 6e |igstr,of|fset,len|
|00003090| 2c 6c 69 74 74 6c 65 2c | 6c 69 74 74 6c 65 6c 65 |,little,|littlele|
|000030a0| 6e 29 0d 53 54 52 20 2a | 62 69 67 73 74 72 3b 0d |n).STR *|bigstr;.|
|000030b0| 53 54 52 4c 45 4e 20 6f | 66 66 73 65 74 3b 0d 53 |STRLEN o|ffset;.S|
|000030c0| 54 52 4c 45 4e 20 6c 65 | 6e 3b 0d 63 68 61 72 20 |TRLEN le|n;.char |
|000030d0| 2a 6c 69 74 74 6c 65 3b | 0d 53 54 52 4c 45 4e 20 |*little;|.STRLEN |
|000030e0| 6c 69 74 74 6c 65 6c 65 | 6e 3b 0d 7b 0d 20 20 20 |littlele|n;.{.   |
|000030f0| 20 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 2a | registe|r char *|
|00003100| 62 69 67 3b 0d 20 20 20 | 20 72 65 67 69 73 74 65 |big;.   | registe|
|00003110| 72 20 63 68 61 72 20 2a | 6d 69 64 3b 0d 20 20 20 |r char *|mid;.   |
|00003120| 20 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 2a | registe|r char *|
|00003130| 6d 69 64 65 6e 64 3b 0d | 20 20 20 20 72 65 67 69 |midend;.|    regi|
|00003140| 73 74 65 72 20 63 68 61 | 72 20 2a 62 69 67 65 6e |ster cha|r *bigen|
|00003150| 64 3b 0d 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |d;.    r|egister |
|00003160| 69 6e 74 20 69 3b 0d 0d | 20 20 20 20 69 66 20 28 |int i;..|    if (|
|00003170| 62 69 67 73 74 72 20 3d | 3d 20 26 73 74 72 5f 75 |bigstr =|= &str_u|
|00003180| 6e 64 65 66 29 0d 09 72 | 65 74 75 72 6e 3b 0d 20 |ndef)..r|eturn;. |
|00003190| 20 20 20 62 69 67 73 74 | 72 2d 3e 73 74 72 5f 6e |   bigst|r->str_n|
|000031a0| 6f 6b 20 3d 20 30 3b 0d | 20 20 20 20 62 69 67 73 |ok = 0;.|    bigs|
|000031b0| 74 72 2d 3e 73 74 72 5f | 70 6f 6b 20 3d 20 53 50 |tr->str_|pok = SP|
|000031c0| 5f 56 41 4c 49 44 3b 09 | 2f 2a 20 64 69 73 61 62 |_VALID;.|/* disab|
|000031d0| 6c 65 20 70 6f 73 73 69 | 62 6c 65 20 73 63 72 65 |le possi|ble scre|
|000031e0| 61 6d 65 72 20 2a 2f 0d | 0d 20 20 20 20 69 20 3d |amer */.|.    i =|
|000031f0| 20 6c 69 74 74 6c 65 6c | 65 6e 20 2d 20 6c 65 6e | littlel|en - len|
|00003200| 3b 0d 20 20 20 20 69 66 | 20 28 69 20 3e 20 30 29 |;.    if| (i > 0)|
|00003210| 20 7b 09 09 09 2f 2a 20 | 73 74 72 69 6e 67 20 6d | {.../* |string m|
|00003220| 69 67 68 74 20 67 72 6f | 77 20 2a 2f 0d 09 53 54 |ight gro|w */..ST|
|00003230| 52 5f 47 52 4f 57 28 62 | 69 67 73 74 72 2c 20 62 |R_GROW(b|igstr, b|
|00003240| 69 67 73 74 72 2d 3e 73 | 74 72 5f 63 75 72 20 2b |igstr->s|tr_cur +|
|00003250| 20 69 20 2b 20 31 29 3b | 0d 09 62 69 67 20 3d 20 | i + 1);|..big = |
|00003260| 62 69 67 73 74 72 2d 3e | 73 74 72 5f 70 74 72 3b |bigstr->|str_ptr;|
|00003270| 0d 09 6d 69 64 20 3d 20 | 62 69 67 20 2b 20 6f 66 |..mid = |big + of|
|00003280| 66 73 65 74 20 2b 20 6c | 65 6e 3b 0d 09 6d 69 64 |fset + l|en;..mid|
|00003290| 65 6e 64 20 3d 20 62 69 | 67 65 6e 64 20 3d 20 62 |end = bi|gend = b|
|000032a0| 69 67 20 2b 20 62 69 67 | 73 74 72 2d 3e 73 74 72 |ig + big|str->str|
|000032b0| 5f 63 75 72 3b 0d 09 62 | 69 67 65 6e 64 20 2b 3d |_cur;..b|igend +=|
|000032c0| 20 69 3b 0d 09 2a 62 69 | 67 65 6e 64 20 3d 20 27 | i;..*bi|gend = '|
|000032d0| 5c 30 27 3b 0d 09 77 68 | 69 6c 65 20 28 6d 69 64 |\0';..wh|ile (mid|
|000032e0| 65 6e 64 20 3e 20 6d 69 | 64 29 09 09 2f 2a 20 73 |end > mi|d)../* s|
|000032f0| 68 6f 76 65 20 65 76 65 | 72 79 74 68 69 6e 67 20 |hove eve|rything |
|00003300| 64 6f 77 6e 20 2a 2f 0d | 09 20 20 20 20 2a 2d 2d |down */.|.    *--|
|00003310| 62 69 67 65 6e 64 20 3d | 20 2a 2d 2d 6d 69 64 65 |bigend =| *--mide|
|00003320| 6e 64 3b 0d 09 4d 6f 76 | 65 28 6c 69 74 74 6c 65 |nd;..Mov|e(little|
|00003330| 2c 62 69 67 2b 6f 66 66 | 73 65 74 2c 6c 69 74 74 |,big+off|set,litt|
|00003340| 6c 65 6c 65 6e 2c 63 68 | 61 72 29 3b 0d 09 62 69 |lelen,ch|ar);..bi|
|00003350| 67 73 74 72 2d 3e 73 74 | 72 5f 63 75 72 20 2b 3d |gstr->st|r_cur +=|
|00003360| 20 69 3b 0d 09 53 54 41 | 42 53 45 54 28 62 69 67 | i;..STA|BSET(big|
|00003370| 73 74 72 29 3b 0d 09 72 | 65 74 75 72 6e 3b 0d 20 |str);..r|eturn;. |
|00003380| 20 20 20 7d 0d 20 20 20 | 20 65 6c 73 65 20 69 66 |   }.   | else if|
|00003390| 20 28 69 20 3d 3d 20 30 | 29 20 7b 0d 09 4d 6f 76 | (i == 0|) {..Mov|
|000033a0| 65 28 6c 69 74 74 6c 65 | 2c 62 69 67 73 74 72 2d |e(little|,bigstr-|
|000033b0| 3e 73 74 72 5f 70 74 72 | 2b 6f 66 66 73 65 74 2c |>str_ptr|+offset,|
|000033c0| 6c 65 6e 2c 63 68 61 72 | 29 3b 0d 09 53 54 41 42 |len,char|);..STAB|
|000033d0| 53 45 54 28 62 69 67 73 | 74 72 29 3b 0d 09 72 65 |SET(bigs|tr);..re|
|000033e0| 74 75 72 6e 3b 0d 20 20 | 20 20 7d 0d 0d 20 20 20 |turn;.  |  }..   |
|000033f0| 20 62 69 67 20 3d 20 62 | 69 67 73 74 72 2d 3e 73 | big = b|igstr->s|
|00003400| 74 72 5f 70 74 72 3b 0d | 20 20 20 20 6d 69 64 20 |tr_ptr;.|    mid |
|00003410| 3d 20 62 69 67 20 2b 20 | 6f 66 66 73 65 74 3b 0d |= big + |offset;.|
|00003420| 20 20 20 20 6d 69 64 65 | 6e 64 20 3d 20 6d 69 64 |    mide|nd = mid|
|00003430| 20 2b 20 6c 65 6e 3b 0d | 20 20 20 20 62 69 67 65 | + len;.|    bige|
|00003440| 6e 64 20 3d 20 62 69 67 | 20 2b 20 62 69 67 73 74 |nd = big| + bigst|
|00003450| 72 2d 3e 73 74 72 5f 63 | 75 72 3b 0d 0d 20 20 20 |r->str_c|ur;..   |
|00003460| 20 69 66 20 28 6d 69 64 | 65 6e 64 20 3e 20 62 69 | if (mid|end > bi|
|00003470| 67 65 6e 64 29 0d 09 66 | 61 74 61 6c 28 22 70 61 |gend)..f|atal("pa|
|00003480| 6e 69 63 3a 20 73 74 72 | 5f 69 6e 73 65 72 74 22 |nic: str|_insert"|
|00003490| 29 3b 0d 0d 20 20 20 20 | 69 66 20 28 6d 69 64 20 |);..    |if (mid |
|000034a0| 2d 20 62 69 67 20 3e 20 | 62 69 67 65 6e 64 20 2d |- big > |bigend -|
|000034b0| 20 6d 69 64 65 6e 64 29 | 20 7b 09 2f 2a 20 66 61 | midend)| {./* fa|
|000034c0| 73 74 65 72 20 74 6f 20 | 73 68 6f 72 74 65 6e 20 |ster to |shorten |
|000034d0| 66 72 6f 6d 20 65 6e 64 | 20 2a 2f 0d 09 69 66 20 |from end| */..if |
|000034e0| 28 6c 69 74 74 6c 65 6c | 65 6e 29 20 7b 0d 09 20 |(littlel|en) {.. |
|000034f0| 20 20 20 4d 6f 76 65 28 | 6c 69 74 74 6c 65 2c 20 |   Move(|little, |
|00003500| 6d 69 64 2c 20 6c 69 74 | 74 6c 65 6c 65 6e 2c 63 |mid, lit|tlelen,c|
|00003510| 68 61 72 29 3b 0d 09 20 | 20 20 20 6d 69 64 20 2b |har);.. |   mid +|
|00003520| 3d 20 6c 69 74 74 6c 65 | 6c 65 6e 3b 0d 09 7d 0d |= little|len;..}.|
|00003530| 09 69 20 3d 20 62 69 67 | 65 6e 64 20 2d 20 6d 69 |.i = big|end - mi|
|00003540| 64 65 6e 64 3b 0d 09 69 | 66 20 28 69 20 3e 20 30 |dend;..i|f (i > 0|
|00003550| 29 20 7b 0d 09 20 20 20 | 20 4d 6f 76 65 28 6d 69 |) {..   | Move(mi|
|00003560| 64 65 6e 64 2c 20 6d 69 | 64 2c 20 69 2c 63 68 61 |dend, mi|d, i,cha|
|00003570| 72 29 3b 0d 09 20 20 20 | 20 6d 69 64 20 2b 3d 20 |r);..   | mid += |
|00003580| 69 3b 0d 09 7d 0d 09 2a | 6d 69 64 20 3d 20 27 5c |i;..}..*|mid = '\|
|00003590| 30 27 3b 0d 09 62 69 67 | 73 74 72 2d 3e 73 74 72 |0';..big|str->str|
|000035a0| 5f 63 75 72 20 3d 20 6d | 69 64 20 2d 20 62 69 67 |_cur = m|id - big|
|000035b0| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 2f 2a 53 55 |;.    }.|    /*SU|
|000035c0| 50 50 52 45 53 53 20 35 | 36 30 2a 2f 0d 20 20 20 |PPRESS 5|60*/.   |
|000035d0| 20 65 6c 73 65 20 69 66 | 20 28 69 20 3d 20 6d 69 | else if| (i = mi|
|000035e0| 64 20 2d 20 62 69 67 29 | 20 7b 09 2f 2a 20 66 61 |d - big)| {./* fa|
|000035f0| 73 74 65 72 20 66 72 6f | 6d 20 66 72 6f 6e 74 20 |ster fro|m front |
|00003600| 2a 2f 0d 09 6d 69 64 65 | 6e 64 20 2d 3d 20 6c 69 |*/..mide|nd -= li|
|00003610| 74 74 6c 65 6c 65 6e 3b | 0d 09 6d 69 64 20 3d 20 |ttlelen;|..mid = |
|00003620| 6d 69 64 65 6e 64 3b 0d | 09 73 74 72 5f 63 68 6f |midend;.|.str_cho|
|00003630| 70 28 62 69 67 73 74 72 | 2c 6d 69 64 65 6e 64 2d |p(bigstr|,midend-|
|00003640| 69 29 3b 0d 09 62 69 67 | 20 2b 3d 20 69 3b 0d 09 |i);..big| += i;..|
|00003650| 77 68 69 6c 65 20 28 69 | 2d 2d 29 0d 09 20 20 20 |while (i|--)..   |
|00003660| 20 2a 2d 2d 6d 69 64 65 | 6e 64 20 3d 20 2a 2d 2d | *--mide|nd = *--|
|00003670| 62 69 67 3b 0d 09 69 66 | 20 28 6c 69 74 74 6c 65 |big;..if| (little|
|00003680| 6c 65 6e 29 0d 09 20 20 | 20 20 4d 6f 76 65 28 6c |len)..  |  Move(l|
|00003690| 69 74 74 6c 65 2c 20 6d | 69 64 2c 20 6c 69 74 74 |ittle, m|id, litt|
|000036a0| 6c 65 6c 65 6e 2c 63 68 | 61 72 29 3b 0d 20 20 20 |lelen,ch|ar);.   |
|000036b0| 20 7d 0d 20 20 20 20 65 | 6c 73 65 20 69 66 20 28 | }.    e|lse if (|
|000036c0| 6c 69 74 74 6c 65 6c 65 | 6e 29 20 7b 0d 09 6d 69 |littlele|n) {..mi|
|000036d0| 64 65 6e 64 20 2d 3d 20 | 6c 69 74 74 6c 65 6c 65 |dend -= |littlele|
|000036e0| 6e 3b 0d 09 73 74 72 5f | 63 68 6f 70 28 62 69 67 |n;..str_|chop(big|
|000036f0| 73 74 72 2c 6d 69 64 65 | 6e 64 29 3b 0d 09 4d 6f |str,mide|nd);..Mo|
|00003700| 76 65 28 6c 69 74 74 6c | 65 2c 6d 69 64 65 6e 64 |ve(littl|e,midend|
|00003710| 2c 6c 69 74 74 6c 65 6c | 65 6e 2c 63 68 61 72 29 |,littlel|en,char)|
|00003720| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 65 6c 73 65 |;.    }.|    else|
|00003730| 20 7b 0d 09 73 74 72 5f | 63 68 6f 70 28 62 69 67 | {..str_|chop(big|
|00003740| 73 74 72 2c 6d 69 64 65 | 6e 64 29 3b 0d 20 20 20 |str,mide|nd);.   |
|00003750| 20 7d 0d 20 20 20 20 53 | 54 41 42 53 45 54 28 62 | }.    S|TABSET(b|
|00003760| 69 67 73 74 72 29 3b 0d | 7d 0d 0d 2f 2a 20 6d 61 |igstr);.|}../* ma|
|00003770| 6b 65 20 73 74 72 20 70 | 6f 69 6e 74 20 74 6f 20 |ke str p|oint to |
|00003780| 77 68 61 74 20 6e 73 74 | 72 20 64 69 64 20 2a 2f |what nst|r did */|
|00003790| 0d 0d 76 6f 69 64 0d 73 | 74 72 5f 72 65 70 6c 61 |..void.s|tr_repla|
|000037a0| 63 65 28 73 74 72 2c 6e | 73 74 72 29 0d 72 65 67 |ce(str,n|str).reg|
|000037b0| 69 73 74 65 72 20 53 54 | 52 20 2a 73 74 72 3b 0d |ister ST|R *str;.|
|000037c0| 72 65 67 69 73 74 65 72 | 20 53 54 52 20 2a 6e 73 |register| STR *ns|
|000037d0| 74 72 3b 0d 7b 0d 20 20 | 20 20 69 66 20 28 73 74 |tr;.{.  |  if (st|
|000037e0| 72 20 3d 3d 20 26 73 74 | 72 5f 75 6e 64 65 66 29 |r == &st|r_undef)|
|000037f0| 0d 09 72 65 74 75 72 6e | 3b 0d 20 20 20 20 69 66 |..return|;.    if|
|00003800| 20 28 73 74 72 2d 3e 73 | 74 72 5f 73 74 61 74 65 | (str->s|tr_state|
|00003810| 20 3d 3d 20 53 53 5f 49 | 4e 43 52 29 0d 09 53 74 | == SS_I|NCR)..St|
|00003820| 72 5f 47 72 6f 77 28 73 | 74 72 2c 30 29 3b 09 2f |r_Grow(s|tr,0);./|
|00003830| 2a 20 6a 75 73 74 20 66 | 6f 72 63 65 20 63 6f 70 |* just f|orce cop|
|00003840| 79 20 64 6f 77 6e 20 2a | 2f 0d 20 20 20 20 69 66 |y down *|/.    if|
|00003850| 20 28 6e 73 74 72 2d 3e | 73 74 72 5f 73 74 61 74 | (nstr->|str_stat|
|00003860| 65 20 3d 3d 20 53 53 5f | 49 4e 43 52 29 0d 09 53 |e == SS_|INCR)..S|
|00003870| 74 72 5f 47 72 6f 77 28 | 6e 73 74 72 2c 30 29 3b |tr_Grow(|nstr,0);|
|00003880| 0d 20 20 20 20 69 66 20 | 28 73 74 72 2d 3e 73 74 |.    if |(str->st|
|00003890| 72 5f 70 74 72 29 0d 09 | 53 61 66 65 66 72 65 65 |r_ptr)..|Safefree|
|000038a0| 28 73 74 72 2d 3e 73 74 | 72 5f 70 74 72 29 3b 0d |(str->st|r_ptr);.|
|000038b0| 20 20 20 20 73 74 72 2d | 3e 73 74 72 5f 70 74 72 |    str-|>str_ptr|
|000038c0| 20 3d 20 6e 73 74 72 2d | 3e 73 74 72 5f 70 74 72 | = nstr-|>str_ptr|
|000038d0| 3b 0d 20 20 20 20 73 74 | 72 2d 3e 73 74 72 5f 6c |;.    st|r->str_l|
|000038e0| 65 6e 20 3d 20 6e 73 74 | 72 2d 3e 73 74 72 5f 6c |en = nst|r->str_l|
|000038f0| 65 6e 3b 0d 20 20 20 20 | 73 74 72 2d 3e 73 74 72 |en;.    |str->str|
|00003900| 5f 63 75 72 20 3d 20 6e | 73 74 72 2d 3e 73 74 72 |_cur = n|str->str|
|00003910| 5f 63 75 72 3b 0d 20 20 | 20 20 73 74 72 2d 3e 73 |_cur;.  |  str->s|
|00003920| 74 72 5f 70 6f 6b 20 3d | 20 6e 73 74 72 2d 3e 73 |tr_pok =| nstr->s|
|00003930| 74 72 5f 70 6f 6b 3b 0d | 20 20 20 20 73 74 72 2d |tr_pok;.|    str-|
|00003940| 3e 73 74 72 5f 6e 6f 6b | 20 3d 20 6e 73 74 72 2d |>str_nok| = nstr-|
|00003950| 3e 73 74 72 5f 6e 6f 6b | 3b 0d 23 69 66 64 65 66 |>str_nok|;.#ifdef|
|00003960| 20 53 54 52 55 43 54 43 | 4f 50 59 0d 20 20 20 20 | STRUCTC|OPY.    |
|00003970| 73 74 72 2d 3e 73 74 72 | 5f 75 20 3d 20 6e 73 74 |str->str|_u = nst|
|00003980| 72 2d 3e 73 74 72 5f 75 | 3b 0d 23 65 6c 73 65 0d |r->str_u|;.#else.|
|00003990| 20 20 20 20 73 74 72 2d | 3e 73 74 72 5f 75 2e 73 |    str-|>str_u.s|
|000039a0| 74 72 5f 6e 76 61 6c 20 | 3d 20 6e 73 74 72 2d 3e |tr_nval |= nstr->|
|000039b0| 73 74 72 5f 75 2e 73 74 | 72 5f 6e 76 61 6c 3b 0d |str_u.st|r_nval;.|
|000039c0| 23 65 6e 64 69 66 0d 23 | 69 66 64 65 66 20 54 41 |#endif.#|ifdef TA|
|000039d0| 49 4e 54 0d 20 20 20 20 | 73 74 72 2d 3e 73 74 72 |INT.    |str->str|
|000039e0| 5f 74 61 69 6e 74 65 64 | 20 3d 20 6e 73 74 72 2d |_tainted| = nstr-|
|000039f0| 3e 73 74 72 5f 74 61 69 | 6e 74 65 64 3b 0d 23 65 |>str_tai|nted;.#e|
|00003a00| 6e 64 69 66 0d 20 20 20 | 20 69 66 20 28 6e 73 74 |ndif.   | if (nst|
|00003a10| 72 2d 3e 73 74 72 5f 6d | 61 67 69 63 29 0d 09 73 |r->str_m|agic)..s|
|00003a20| 74 72 5f 66 72 65 65 28 | 6e 73 74 72 2d 3e 73 74 |tr_free(|nstr->st|
|00003a30| 72 5f 6d 61 67 69 63 29 | 3b 0d 20 20 20 20 53 61 |r_magic)|;.    Sa|
|00003a40| 66 65 66 72 65 65 28 6e | 73 74 72 29 3b 0d 7d 0d |fefree(n|str);.}.|
|00003a50| 0d 76 6f 69 64 0d 73 74 | 72 5f 66 72 65 65 28 73 |.void.st|r_free(s|
|00003a60| 74 72 29 0d 72 65 67 69 | 73 74 65 72 20 53 54 52 |tr).regi|ster STR|
|00003a70| 20 2a 73 74 72 3b 0d 7b | 0d 20 20 20 20 69 66 20 | *str;.{|.    if |
|00003a80| 28 21 73 74 72 20 7c 7c | 20 73 74 72 20 3d 3d 20 |(!str ||| str == |
|00003a90| 26 73 74 72 5f 75 6e 64 | 65 66 29 0d 09 72 65 74 |&str_und|ef)..ret|
|00003aa0| 75 72 6e 3b 0d 20 20 20 | 20 69 66 20 28 73 74 72 |urn;.   | if (str|
|00003ab0| 2d 3e 73 74 72 5f 73 74 | 61 74 65 29 20 7b 0d 09 |->str_st|ate) {..|
|00003ac0| 69 66 20 28 73 74 72 2d | 3e 73 74 72 5f 73 74 61 |if (str-|>str_sta|
|00003ad0| 74 65 20 3d 3d 20 53 53 | 5f 46 52 45 45 29 09 2f |te == SS|_FREE)./|
|00003ae0| 2a 20 61 6c 72 65 61 64 | 79 20 66 72 65 65 64 20 |* alread|y freed |
|00003af0| 2a 2f 0d 09 20 20 20 20 | 72 65 74 75 72 6e 3b 0d |*/..    |return;.|
|00003b00| 09 69 66 20 28 73 74 72 | 2d 3e 73 74 72 5f 73 74 |.if (str|->str_st|
|00003b10| 61 74 65 20 3d 3d 20 53 | 53 5f 49 4e 43 52 20 26 |ate == S|S_INCR &|
|00003b20| 26 20 21 28 73 74 72 2d | 3e 73 74 72 5f 70 6f 6b |& !(str-|>str_pok|
|00003b30| 20 26 20 32 29 29 20 7b | 0d 09 20 20 20 20 73 74 | & 2)) {|..    st|
|00003b40| 72 2d 3e 73 74 72 5f 70 | 74 72 20 2d 3d 20 73 74 |r->str_p|tr -= st|
|00003b50| 72 2d 3e 73 74 72 5f 75 | 2e 73 74 72 5f 75 73 65 |r->str_u|.str_use|
|00003b60| 66 75 6c 3b 0d 09 20 20 | 20 20 73 74 72 2d 3e 73 |ful;..  |  str->s|
|00003b70| 74 72 5f 6c 65 6e 20 2b | 3d 20 73 74 72 2d 3e 73 |tr_len +|= str->s|
|00003b80| 74 72 5f 75 2e 73 74 72 | 5f 75 73 65 66 75 6c 3b |tr_u.str|_useful;|
|00003b90| 0d 09 7d 0d 20 20 20 20 | 7d 0d 20 20 20 20 69 66 |..}.    |}.    if|
|00003ba0| 20 28 73 74 72 2d 3e 73 | 74 72 5f 6d 61 67 69 63 | (str->s|tr_magic|
|00003bb0| 29 0d 09 73 74 72 5f 66 | 72 65 65 28 73 74 72 2d |)..str_f|ree(str-|
|00003bc0| 3e 73 74 72 5f 6d 61 67 | 69 63 29 3b 0d 20 20 20 |>str_mag|ic);.   |
|00003bd0| 20 73 74 72 2d 3e 73 74 | 72 5f 6d 61 67 69 63 20 | str->st|r_magic |
|00003be0| 3d 20 66 72 65 65 73 74 | 72 72 6f 6f 74 3b 0d 23 |= freest|rroot;.#|
|00003bf0| 69 66 64 65 66 20 4c 45 | 41 4b 54 45 53 54 0d 20 |ifdef LE|AKTEST. |
|00003c00| 20 20 20 69 66 20 28 73 | 74 72 2d 3e 73 74 72 5f |   if (s|tr->str_|
|00003c10| 6c 65 6e 29 20 7b 0d 09 | 53 61 66 65 66 72 65 65 |len) {..|Safefree|
|00003c20| 28 73 74 72 2d 3e 73 74 | 72 5f 70 74 72 29 3b 0d |(str->st|r_ptr);.|
|00003c30| 09 73 74 72 2d 3e 73 74 | 72 5f 70 74 72 20 3d 20 |.str->st|r_ptr = |
|00003c40| 4e 75 6c 6c 63 68 3b 0d | 20 20 20 20 7d 0d 20 20 |Nullch;.|    }.  |
|00003c50| 20 20 69 66 20 28 28 73 | 74 72 2d 3e 73 74 72 5f |  if ((s|tr->str_|
|00003c60| 70 6f 6b 20 26 20 53 50 | 5f 49 4e 54 52 50 29 20 |pok & SP|_INTRP) |
|00003c70| 26 26 20 73 74 72 2d 3e | 73 74 72 5f 75 2e 73 74 |&& str->|str_u.st|
|00003c80| 72 5f 61 72 67 73 29 0d | 09 61 72 67 5f 66 72 65 |r_args).|.arg_fre|
|00003c90| 65 28 73 74 72 2d 3e 73 | 74 72 5f 75 2e 73 74 72 |e(str->s|tr_u.str|
|00003ca0| 5f 61 72 67 73 29 3b 0d | 20 20 20 20 53 61 66 65 |_args);.|    Safe|
|00003cb0| 66 72 65 65 28 73 74 72 | 29 3b 0d 23 65 6c 73 65 |free(str|);.#else|
|00003cc0| 20 2f 2a 20 4c 45 41 4b | 54 45 53 54 20 2a 2f 0d | /* LEAK|TEST */.|
|00003cd0| 20 20 20 20 69 66 20 28 | 73 74 72 2d 3e 73 74 72 |    if (|str->str|
|00003ce0| 5f 6c 65 6e 29 20 7b 0d | 09 69 66 20 28 73 74 72 |_len) {.|.if (str|
|00003cf0| 2d 3e 73 74 72 5f 6c 65 | 6e 20 3e 20 31 32 37 29 |->str_le|n > 127)|
|00003d00| 20 7b 09 2f 2a 20 6e 65 | 78 74 20 75 73 65 72 20 | {./* ne|xt user |
|00003d10| 6e 6f 74 20 6c 69 6b 65 | 6c 79 20 74 6f 20 77 61 |not like|ly to wa|
|00003d20| 6e 74 20 6d 6f 72 65 20 | 2a 2f 0d 09 20 20 20 20 |nt more |*/..    |
|00003d30| 53 61 66 65 66 72 65 65 | 28 73 74 72 2d 3e 73 74 |Safefree|(str->st|
|00003d40| 72 5f 70 74 72 29 3b 09 | 2f 2a 20 73 6f 20 67 69 |r_ptr);.|/* so gi|
|00003d50| 76 65 20 69 74 20 62 61 | 63 6b 20 74 6f 20 6d 61 |ve it ba|ck to ma|
|00003d60| 6c 6c 6f 63 20 2a 2f 0d | 09 20 20 20 20 73 74 72 |lloc */.|.    str|
|00003d70| 2d 3e 73 74 72 5f 70 74 | 72 20 3d 20 4e 75 6c 6c |->str_pt|r = Null|
|00003d80| 63 68 3b 0d 09 20 20 20 | 20 73 74 72 2d 3e 73 74 |ch;..   | str->st|
|00003d90| 72 5f 6c 65 6e 20 3d 20 | 30 3b 0d 09 7d 0d 09 65 |r_len = |0;..}..e|
|00003da0| 6c 73 65 0d 09 20 20 20 | 20 73 74 72 2d 3e 73 74 |lse..   | str->st|
|00003db0| 72 5f 70 74 72 5b 30 5d | 20 3d 20 27 5c 30 27 3b |r_ptr[0]| = '\0';|
|00003dc0| 0d 20 20 20 20 7d 0d 20 | 20 20 20 69 66 20 28 28 |.    }. |   if ((|
|00003dd0| 73 74 72 2d 3e 73 74 72 | 5f 70 6f 6b 20 26 20 53 |str->str|_pok & S|
|00003de0| 50 5f 49 4e 54 52 50 29 | 20 26 26 20 73 74 72 2d |P_INTRP)| && str-|
|00003df0| 3e 73 74 72 5f 75 2e 73 | 74 72 5f 61 72 67 73 29 |>str_u.s|tr_args)|
|00003e00| 0d 09 61 72 67 5f 66 72 | 65 65 28 73 74 72 2d 3e |..arg_fr|ee(str->|
|00003e10| 73 74 72 5f 75 2e 73 74 | 72 5f 61 72 67 73 29 3b |str_u.st|r_args);|
|00003e20| 0d 20 20 20 20 73 74 72 | 2d 3e 73 74 72 5f 63 75 |.    str|->str_cu|
|00003e30| 72 20 3d 20 30 3b 0d 20 | 20 20 20 73 74 72 2d 3e |r = 0;. |   str->|
|00003e40| 73 74 72 5f 6e 6f 6b 20 | 3d 20 30 3b 0d 20 20 20 |str_nok |= 0;.   |
|00003e50| 20 73 74 72 2d 3e 73 74 | 72 5f 70 6f 6b 20 3d 20 | str->st|r_pok = |
|00003e60| 30 3b 0d 20 20 20 20 73 | 74 72 2d 3e 73 74 72 5f |0;.    s|tr->str_|
|00003e70| 73 74 61 74 65 20 3d 20 | 53 53 5f 46 52 45 45 3b |state = |SS_FREE;|
|00003e80| 0d 23 69 66 64 65 66 20 | 54 41 49 4e 54 0d 20 20 |.#ifdef |TAINT.  |
|00003e90| 20 20 73 74 72 2d 3e 73 | 74 72 5f 74 61 69 6e 74 |  str->s|tr_taint|
|00003ea0| 65 64 20 3d 20 30 3b 0d | 23 65 6e 64 69 66 0d 20 |ed = 0;.|#endif. |
|00003eb0| 20 20 20 66 72 65 65 73 | 74 72 72 6f 6f 74 20 3d |   frees|trroot =|
|00003ec0| 20 73 74 72 3b 0d 23 65 | 6e 64 69 66 20 2f 2a 20 | str;.#e|ndif /* |
|00003ed0| 4c 45 41 4b 54 45 53 54 | 20 2a 2f 0d 7d 0d 0d 53 |LEAKTEST| */.}..S|
|00003ee0| 54 52 4c 45 4e 0d 73 74 | 72 5f 6c 65 6e 28 73 74 |TRLEN.st|r_len(st|
|00003ef0| 72 29 0d 72 65 67 69 73 | 74 65 72 20 53 54 52 20 |r).regis|ter STR |
|00003f00| 2a 73 74 72 3b 0d 7b 0d | 20 20 20 20 69 66 20 28 |*str;.{.|    if (|
|00003f10| 21 73 74 72 29 0d 09 72 | 65 74 75 72 6e 20 30 3b |!str)..r|eturn 0;|
|00003f20| 0d 20 20 20 20 69 66 20 | 28 21 28 73 74 72 2d 3e |.    if |(!(str->|
|00003f30| 73 74 72 5f 70 6f 6b 29 | 29 0d 09 28 76 6f 69 64 |str_pok)|)..(void|
|00003f40| 29 73 74 72 5f 32 70 74 | 72 28 73 74 72 29 3b 0d |)str_2pt|r(str);.|
|00003f50| 20 20 20 20 69 66 20 28 | 73 74 72 2d 3e 73 74 72 |    if (|str->str|
|00003f60| 5f 70 74 72 29 0d 09 72 | 65 74 75 72 6e 20 73 74 |_ptr)..r|eturn st|
|00003f70| 72 2d 3e 73 74 72 5f 63 | 75 72 3b 0d 20 20 20 20 |r->str_c|ur;.    |
|00003f80| 65 6c 73 65 0d 09 72 65 | 74 75 72 6e 20 30 3b 0d |else..re|turn 0;.|
|00003f90| 7d 0d 0d 69 6e 74 0d 73 | 74 72 5f 65 71 28 73 74 |}..int.s|tr_eq(st|
|00003fa0| 72 31 2c 73 74 72 32 29 | 0d 72 65 67 69 73 74 65 |r1,str2)|.registe|
|00003fb0| 72 20 53 54 52 20 2a 73 | 74 72 31 3b 0d 72 65 67 |r STR *s|tr1;.reg|
|00003fc0| 69 73 74 65 72 20 53 54 | 52 20 2a 73 74 72 32 3b |ister ST|R *str2;|
|00003fd0| 0d 7b 0d 20 20 20 20 69 | 66 20 28 21 73 74 72 31 |.{.    i|f (!str1|
|00003fe0| 20 7c 7c 20 73 74 72 31 | 20 3d 3d 20 26 73 74 72 | || str1| == &str|
|00003ff0| 5f 75 6e 64 65 66 29 0d | 09 72 65 74 75 72 6e 20 |_undef).|.return |
|00004000| 28 73 74 72 32 20 3d 3d | 20 4e 75 6c 6c 73 74 72 |(str2 ==| Nullstr|
|00004010| 20 7c 7c 20 73 74 72 32 | 20 3d 3d 20 26 73 74 72 | || str2| == &str|
|00004020| 5f 75 6e 64 65 66 20 7c | 7c 20 21 73 74 72 32 2d |_undef ||| !str2-|
|00004030| 3e 73 74 72 5f 63 75 72 | 29 3b 0d 20 20 20 20 69 |>str_cur|);.    i|
|00004040| 66 20 28 21 73 74 72 32 | 20 7c 7c 20 73 74 72 32 |f (!str2| || str2|
|00004050| 20 3d 3d 20 26 73 74 72 | 5f 75 6e 64 65 66 29 0d | == &str|_undef).|
|00004060| 09 72 65 74 75 72 6e 20 | 21 73 74 72 31 2d 3e 73 |.return |!str1->s|
|00004070| 74 72 5f 63 75 72 3b 0d | 0d 20 20 20 20 69 66 20 |tr_cur;.|.    if |
|00004080| 28 21 73 74 72 31 2d 3e | 73 74 72 5f 70 6f 6b 29 |(!str1->|str_pok)|
|00004090| 0d 09 28 76 6f 69 64 29 | 73 74 72 5f 32 70 74 72 |..(void)|str_2ptr|
|000040a0| 28 73 74 72 31 29 3b 0d | 20 20 20 20 69 66 20 28 |(str1);.|    if (|
|000040b0| 21 73 74 72 32 2d 3e 73 | 74 72 5f 70 6f 6b 29 0d |!str2->s|tr_pok).|
|000040c0| 09 28 76 6f 69 64 29 73 | 74 72 5f 32 70 74 72 28 |.(void)s|tr_2ptr(|
|000040d0| 73 74 72 32 29 3b 0d 0d | 20 20 20 20 69 66 20 28 |str2);..|    if (|
|000040e0| 73 74 72 31 2d 3e 73 74 | 72 5f 63 75 72 20 21 3d |str1->st|r_cur !=|
|000040f0| 20 73 74 72 32 2d 3e 73 | 74 72 5f 63 75 72 29 0d | str2->s|tr_cur).|
|00004100| 09 72 65 74 75 72 6e 20 | 30 3b 0d 0d 20 20 20 20 |.return |0;..    |
|00004110| 72 65 74 75 72 6e 20 21 | 62 63 6d 70 28 73 74 72 |return !|bcmp(str|
|00004120| 31 2d 3e 73 74 72 5f 70 | 74 72 2c 20 73 74 72 32 |1->str_p|tr, str2|
|00004130| 2d 3e 73 74 72 5f 70 74 | 72 2c 20 73 74 72 31 2d |->str_pt|r, str1-|
|00004140| 3e 73 74 72 5f 63 75 72 | 29 3b 0d 7d 0d 0d 69 6e |>str_cur|);.}..in|
|00004150| 74 0d 73 74 72 5f 63 6d | 70 28 73 74 72 31 2c 73 |t.str_cm|p(str1,s|
|00004160| 74 72 32 29 0d 72 65 67 | 69 73 74 65 72 20 53 54 |tr2).reg|ister ST|
|00004170| 52 20 2a 73 74 72 31 3b | 0d 72 65 67 69 73 74 65 |R *str1;|.registe|
|00004180| 72 20 53 54 52 20 2a 73 | 74 72 32 3b 0d 7b 0d 20 |r STR *s|tr2;.{. |
|00004190| 20 20 20 69 6e 74 20 72 | 65 74 76 61 6c 3b 0d 0d |   int r|etval;..|
|000041a0| 20 20 20 20 69 66 20 28 | 21 73 74 72 31 20 7c 7c |    if (|!str1 |||
|000041b0| 20 73 74 72 31 20 3d 3d | 20 26 73 74 72 5f 75 6e | str1 ==| &str_un|
|000041c0| 64 65 66 29 0d 09 72 65 | 74 75 72 6e 20 28 73 74 |def)..re|turn (st|
|000041d0| 72 32 20 3d 3d 20 4e 75 | 6c 6c 73 74 72 20 7c 7c |r2 == Nu|llstr |||
|000041e0| 20 73 74 72 32 20 3d 3d | 20 26 73 74 72 5f 75 6e | str2 ==| &str_un|
|000041f0| 64 65 66 20 7c 7c 20 21 | 73 74 72 32 2d 3e 73 74 |def || !|str2->st|
|00004200| 72 5f 63 75 72 29 3f 30 | 3a 2d 31 3b 0d 20 20 20 |r_cur)?0|:-1;.   |
|00004210| 20 69 66 20 28 21 73 74 | 72 32 20 7c 7c 20 73 74 | if (!st|r2 || st|
|00004220| 72 32 20 3d 3d 20 26 73 | 74 72 5f 75 6e 64 65 66 |r2 == &s|tr_undef|
|00004230| 29 0d 09 72 65 74 75 72 | 6e 20 73 74 72 31 2d 3e |)..retur|n str1->|
|00004240| 73 74 72 5f 63 75 72 20 | 21 3d 20 30 3b 0d 0d 20 |str_cur |!= 0;.. |
|00004250| 20 20 20 69 66 20 28 21 | 73 74 72 31 2d 3e 73 74 |   if (!|str1->st|
|00004260| 72 5f 70 6f 6b 29 0d 09 | 28 76 6f 69 64 29 73 74 |r_pok)..|(void)st|
|00004270| 72 5f 32 70 74 72 28 73 | 74 72 31 29 3b 0d 20 20 |r_2ptr(s|tr1);.  |
|00004280| 20 20 69 66 20 28 21 73 | 74 72 32 2d 3e 73 74 72 |  if (!s|tr2->str|
|00004290| 5f 70 6f 6b 29 0d 09 28 | 76 6f 69 64 29 73 74 72 |_pok)..(|void)str|
|000042a0| 5f 32 70 74 72 28 73 74 | 72 32 29 3b 0d 0d 20 20 |_2ptr(st|r2);..  |
|000042b0| 20 20 69 66 20 28 73 74 | 72 31 2d 3e 73 74 72 5f |  if (st|r1->str_|
|000042c0| 63 75 72 20 3c 20 73 74 | 72 32 2d 3e 73 74 72 5f |cur < st|r2->str_|
|000042d0| 63 75 72 29 20 7b 0d 09 | 2f 2a 53 55 50 50 52 45 |cur) {..|/*SUPPRE|
|000042e0| 53 53 20 35 36 30 2a 2f | 0d 09 69 66 20 28 72 65 |SS 560*/|..if (re|
|000042f0| 74 76 61 6c 20 3d 20 6d | 65 6d 63 6d 70 28 73 74 |tval = m|emcmp(st|
|00004300| 72 31 2d 3e 73 74 72 5f | 70 74 72 2c 20 73 74 72 |r1->str_|ptr, str|
|00004310| 32 2d 3e 73 74 72 5f 70 | 74 72 2c 20 73 74 72 31 |2->str_p|tr, str1|
|00004320| 2d 3e 73 74 72 5f 63 75 | 72 29 29 0d 09 20 20 20 |->str_cu|r))..   |
|00004330| 20 72 65 74 75 72 6e 20 | 72 65 74 76 61 6c 20 3c | return |retval <|
|00004340| 20 30 20 3f 20 2d 31 20 | 3a 20 31 3b 0d 09 65 6c | 0 ? -1 |: 1;..el|
|00004350| 73 65 0d 09 20 20 20 20 | 72 65 74 75 72 6e 20 2d |se..    |return -|
|00004360| 31 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 2f 2a 53 |1;.    }|.    /*S|
|00004370| 55 50 50 52 45 53 53 20 | 35 36 30 2a 2f 0d 20 20 |UPPRESS |560*/.  |
|00004380| 20 20 65 6c 73 65 20 69 | 66 20 28 72 65 74 76 61 |  else i|f (retva|
|00004390| 6c 20 3d 20 6d 65 6d 63 | 6d 70 28 73 74 72 31 2d |l = memc|mp(str1-|
|000043a0| 3e 73 74 72 5f 70 74 72 | 2c 20 73 74 72 32 2d 3e |>str_ptr|, str2->|
|000043b0| 73 74 72 5f 70 74 72 2c | 20 73 74 72 32 2d 3e 73 |str_ptr,| str2->s|
|000043c0| 74 72 5f 63 75 72 29 29 | 0d 09 72 65 74 75 72 6e |tr_cur))|..return|
|000043d0| 20 72 65 74 76 61 6c 20 | 3c 20 30 20 3f 20 2d 31 | retval |< 0 ? -1|
|000043e0| 20 3a 20 31 3b 0d 20 20 | 20 20 65 6c 73 65 20 69 | : 1;.  |  else i|
|000043f0| 66 20 28 73 74 72 31 2d | 3e 73 74 72 5f 63 75 72 |f (str1-|>str_cur|
|00004400| 20 3d 3d 20 73 74 72 32 | 2d 3e 73 74 72 5f 63 75 | == str2|->str_cu|
|00004410| 72 29 0d 09 72 65 74 75 | 72 6e 20 30 3b 0d 20 20 |r)..retu|rn 0;.  |
|00004420| 20 20 65 6c 73 65 0d 09 | 72 65 74 75 72 6e 20 31 |  else..|return 1|
|00004430| 3b 0d 7d 0d 0d 63 68 61 | 72 20 2a 0d 73 74 72 5f |;.}..cha|r *.str_|
|00004440| 67 65 74 73 28 73 74 72 | 2c 66 70 2c 61 70 70 65 |gets(str|,fp,appe|
|00004450| 6e 64 29 0d 72 65 67 69 | 73 74 65 72 20 53 54 52 |nd).regi|ster STR|
|00004460| 20 2a 73 74 72 3b 0d 72 | 65 67 69 73 74 65 72 20 | *str;.r|egister |
|00004470| 46 49 4c 45 20 2a 66 70 | 3b 0d 69 6e 74 20 61 70 |FILE *fp|;.int ap|
|00004480| 70 65 6e 64 3b 0d 7b 0d | 20 20 20 20 72 65 67 69 |pend;.{.|    regi|
|00004490| 73 74 65 72 20 63 68 61 | 72 20 2a 62 70 3b 09 09 |ster cha|r *bp;..|
|000044a0| 2f 2a 20 77 65 27 72 65 | 20 67 6f 69 6e 67 20 74 |/* we're| going t|
|000044b0| 6f 20 73 74 65 61 6c 20 | 73 6f 6d 65 20 76 61 6c |o steal |some val|
|000044c0| 75 65 73 20 2a 2f 0d 20 | 20 20 20 72 65 67 69 73 |ues */. |   regis|
|000044d0| 74 65 72 20 69 6e 74 20 | 63 6e 74 3b 09 09 2f 2a |ter int |cnt;../*|
|000044e0| 20 20 66 72 6f 6d 20 74 | 68 65 20 73 74 64 69 6f |  from t|he stdio|
|000044f0| 20 73 74 72 75 63 74 20 | 61 6e 64 20 70 75 74 20 | struct |and put |
|00004500| 45 56 45 52 59 54 48 49 | 4e 47 20 2a 2f 0d 20 20 |EVERYTHI|NG */.  |
|00004510| 20 20 72 65 67 69 73 74 | 65 72 20 53 54 44 43 48 |  regist|er STDCH|
|00004520| 41 52 20 2a 70 74 72 3b | 09 2f 2a 20 20 20 69 6e |AR *ptr;|./*   in|
|00004530| 20 74 68 65 20 69 6e 6e | 65 72 6d 6f 73 74 20 6c | the inn|ermost l|
|00004540| 6f 6f 70 20 69 6e 74 6f | 20 72 65 67 69 73 74 65 |oop into| registe|
|00004550| 72 73 20 2a 2f 0d 20 20 | 20 20 72 65 67 69 73 74 |rs */.  |  regist|
|00004560| 65 72 20 69 6e 74 20 6e | 65 77 6c 69 6e 65 20 3d |er int n|ewline =|
|00004570| 20 72 73 63 68 61 72 3b | 2f 2a 20 28 61 73 73 75 | rschar;|/* (assu|
|00004580| 6d 69 6e 67 20 3e 3d 20 | 36 20 72 65 67 69 73 74 |ming >= |6 regist|
|00004590| 65 72 73 29 20 2a 2f 0d | 20 20 20 20 69 6e 74 20 |ers) */.|    int |
|000045a0| 69 3b 0d 20 20 20 20 53 | 54 52 4c 45 4e 20 62 70 |i;.    S|TRLEN bp|
|000045b0| 78 3b 0d 20 20 20 20 69 | 6e 74 20 73 68 6f 72 74 |x;.    i|nt short|
|000045c0| 62 75 66 66 65 72 65 64 | 3b 0d 0d 20 20 20 20 69 |buffered|;..    i|
|000045d0| 66 20 28 73 74 72 20 3d | 3d 20 26 73 74 72 5f 75 |f (str =|= &str_u|
|000045e0| 6e 64 65 66 29 0d 09 72 | 65 74 75 72 6e 20 4e 75 |ndef)..r|eturn Nu|
|000045f0| 6c 6c 63 68 3b 0d 20 20 | 20 20 69 66 20 28 72 73 |llch;.  |  if (rs|
|00004600| 70 61 72 61 29 20 7b 09 | 09 2f 2a 20 68 61 76 65 |para) {.|./* have|
|00004610| 20 74 6f 20 64 6f 20 74 | 68 69 73 20 62 6f 74 68 | to do t|his both|
|00004620| 20 62 65 66 6f 72 65 20 | 61 6e 64 20 61 66 74 65 | before |and afte|
|00004630| 72 20 2a 2f 0d 09 64 6f | 20 7b 09 09 09 2f 2a 20 |r */..do| {.../* |
|00004640| 74 6f 20 6d 61 6b 65 20 | 73 75 72 65 20 66 69 6c |to make |sure fil|
|00004650| 65 20 62 6f 75 6e 64 61 | 72 69 65 73 20 77 6f 72 |e bounda|ries wor|
|00004660| 6b 20 72 69 67 68 74 20 | 2a 2f 0d 09 20 20 20 20 |k right |*/..    |
|00004670| 69 20 3d 20 67 65 74 63 | 28 66 70 29 3b 0d 09 20 |i = getc|(fp);.. |
|00004680| 20 20 20 69 66 20 28 69 | 20 21 3d 20 27 5c 6e 27 |   if (i| != '\n'|
|00004690| 29 20 7b 0d 09 09 75 6e | 67 65 74 63 28 69 2c 66 |) {...un|getc(i,f|
|000046a0| 70 29 3b 0d 09 09 62 72 | 65 61 6b 3b 0d 09 20 20 |p);...br|eak;..  |
|000046b0| 20 20 7d 0d 09 7d 20 77 | 68 69 6c 65 20 28 69 20 |  }..} w|hile (i |
|000046c0| 21 3d 20 45 4f 46 29 3b | 0d 20 20 20 20 7d 0d 23 |!= EOF);|.    }.#|
|000046d0| 69 66 64 65 66 20 53 54 | 44 53 54 44 49 4f 09 09 |ifdef ST|DSTDIO..|
|000046e0| 2f 2a 20 48 65 72 65 20 | 69 73 20 73 6f 6d 65 20 |/* Here |is some |
|000046f0| 62 72 65 61 74 68 74 61 | 6b 69 6e 67 6c 79 20 65 |breathta|kingly e|
|00004700| 66 66 69 63 69 65 6e 74 | 20 63 68 65 61 74 69 6e |fficient| cheatin|
|00004710| 67 20 2a 2f 0d 20 20 20 | 20 63 6e 74 20 3d 20 66 |g */.   | cnt = f|
|00004720| 70 2d 3e 5f 63 6e 74 3b | 09 09 09 2f 2a 20 67 65 |p->_cnt;|.../* ge|
|00004730| 74 20 63 6f 75 6e 74 20 | 69 6e 74 6f 20 72 65 67 |t count |into reg|
|00004740| 69 73 74 65 72 20 2a 2f | 0d 20 20 20 20 73 74 72 |ister */|.    str|
|00004750| 2d 3e 73 74 72 5f 6e 6f | 6b 20 3d 20 30 3b 09 09 |->str_no|k = 0;..|
|00004760| 09 2f 2a 20 69 6e 76 61 | 6c 69 64 61 74 65 20 6e |./* inva|lidate n|
|00004770| 75 6d 62 65 72 20 2a 2f | 0d 20 20 20 20 73 74 72 |umber */|.    str|
|00004780| 2d 3e 73 74 72 5f 70 6f | 6b 20 3d 20 31 3b 09 09 |->str_po|k = 1;..|
|00004790| 09 2f 2a 20 76 61 6c 69 | 64 61 74 65 20 70 6f 69 |./* vali|date poi|
|000047a0| 6e 74 65 72 20 2a 2f 0d | 20 20 20 20 69 66 20 28 |nter */.|    if (|
|000047b0| 73 74 72 2d 3e 73 74 72 | 5f 6c 65 6e 20 2d 20 61 |str->str|_len - a|
|000047c0| 70 70 65 6e 64 20 3c 3d | 20 63 6e 74 20 2b 20 31 |ppend <=| cnt + 1|
|000047d0| 29 20 7b 20 2f 2a 20 6d | 61 6b 65 20 73 75 72 65 |) { /* m|ake sure|
|000047e0| 20 77 65 20 68 61 76 65 | 20 74 68 65 20 72 6f 6f | we have| the roo|
|000047f0| 6d 20 2a 2f 0d 09 69 66 | 20 28 63 6e 74 20 3e 20 |m */..if| (cnt > |
|00004800| 38 30 20 26 26 20 73 74 | 72 2d 3e 73 74 72 5f 6c |80 && st|r->str_l|
|00004810| 65 6e 20 3e 20 61 70 70 | 65 6e 64 29 20 7b 0d 09 |en > app|end) {..|
|00004820| 20 20 20 20 73 68 6f 72 | 74 62 75 66 66 65 72 65 |    shor|tbuffere|
|00004830| 64 20 3d 20 63 6e 74 20 | 2d 20 73 74 72 2d 3e 73 |d = cnt |- str->s|
|00004840| 74 72 5f 6c 65 6e 20 2b | 20 61 70 70 65 6e 64 20 |tr_len +| append |
|00004850| 2b 20 31 3b 0d 09 20 20 | 20 20 63 6e 74 20 2d 3d |+ 1;..  |  cnt -=|
|00004860| 20 73 68 6f 72 74 62 75 | 66 66 65 72 65 64 3b 0d | shortbu|ffered;.|
|00004870| 09 7d 0d 09 65 6c 73 65 | 20 7b 0d 09 20 20 20 20 |.}..else| {..    |
|00004880| 73 68 6f 72 74 62 75 66 | 66 65 72 65 64 20 3d 20 |shortbuf|fered = |
|00004890| 30 3b 0d 09 20 20 20 20 | 53 54 52 5f 47 52 4f 57 |0;..    |STR_GROW|
|000048a0| 28 73 74 72 2c 20 61 70 | 70 65 6e 64 2b 63 6e 74 |(str, ap|pend+cnt|
|000048b0| 2b 32 29 3b 2f 2a 20 28 | 72 65 6d 65 6d 62 65 72 |+2);/* (|remember|
|000048c0| 69 6e 67 20 63 6e 74 20 | 63 61 6e 20 62 65 20 2d |ing cnt |can be -|
|000048d0| 31 29 20 2a 2f 0d 09 7d | 0d 20 20 20 20 7d 0d 20 |1) */..}|.    }. |
|000048e0| 20 20 20 65 6c 73 65 0d | 09 73 68 6f 72 74 62 75 |   else.|.shortbu|
|000048f0| 66 66 65 72 65 64 20 3d | 20 30 3b 0d 20 20 20 20 |ffered =| 0;.    |
|00004900| 62 70 20 3d 20 73 74 72 | 2d 3e 73 74 72 5f 70 74 |bp = str|->str_pt|
|00004910| 72 20 2b 20 61 70 70 65 | 6e 64 3b 09 09 2f 2a 20 |r + appe|nd;../* |
|00004920| 6d 6f 76 65 20 74 68 65 | 73 65 20 74 77 6f 20 74 |move the|se two t|
|00004930| 6f 6f 20 74 6f 20 72 65 | 67 69 73 74 65 72 73 20 |oo to re|gisters |
|00004940| 2a 2f 0d 20 20 20 20 70 | 74 72 20 3d 20 66 70 2d |*/.    p|tr = fp-|
|00004950| 3e 5f 70 74 72 3b 0d 20 | 20 20 20 66 6f 72 20 28 |>_ptr;. |   for (|
|00004960| 3b 3b 29 20 7b 0d 20 20 | 20 20 20 20 73 63 72 65 |;;) {.  |    scre|
|00004970| 61 6d 65 72 3a 0d 09 77 | 68 69 6c 65 20 28 2d 2d |amer:..w|hile (--|
|00004980| 63 6e 74 20 3e 3d 20 30 | 29 20 7b 09 09 09 2f 2a |cnt >= 0|) {.../*|
|00004990| 20 74 68 69 73 20 2a 2f | 09 2f 2a 20 65 61 74 20 | this */|./* eat |
|000049a0| 2a 2f 0d 09 20 20 20 20 | 69 66 20 28 28 2a 62 70 |*/..    |if ((*bp|
|000049b0| 2b 2b 20 3d 20 2a 70 74 | 72 2b 2b 29 20 3d 3d 20 |++ = *pt|r++) == |
|000049c0| 6e 65 77 6c 69 6e 65 29 | 09 2f 2a 20 72 65 61 6c |newline)|./* real|
|000049d0| 6c 79 20 2a 2f 09 2f 2a | 20 64 75 73 74 20 2a 2f |ly */./*| dust */|
|000049e0| 0d 09 09 67 6f 74 6f 20 | 74 68 61 74 73 5f 61 6c |...goto |thats_al|
|000049f0| 6c 5f 66 6f 6c 6b 73 3b | 09 09 2f 2a 20 73 63 72 |l_folks;|../* scr|
|00004a00| 65 61 6d 73 20 2a 2f 09 | 2f 2a 20 73 65 64 20 3a |eams */.|/* sed :|
|00004a10| 2d 29 20 2a 2f 20 0d 09 | 7d 0d 09 0d 09 69 66 20 |-) */ ..|}....if |
|00004a20| 28 73 68 6f 72 74 62 75 | 66 66 65 72 65 64 29 20 |(shortbu|ffered) |
|00004a30| 7b 09 09 09 2f 2a 20 6f | 68 20 77 65 6c 6c 2c 20 |{.../* o|h well, |
|00004a40| 6d 75 73 74 20 65 78 74 | 65 6e 64 20 2a 2f 0d 09 |must ext|end */..|
|00004a50| 20 20 20 20 63 6e 74 20 | 3d 20 73 68 6f 72 74 62 |    cnt |= shortb|
|00004a60| 75 66 66 65 72 65 64 3b | 0d 09 20 20 20 20 73 68 |uffered;|..    sh|
|00004a70| 6f 72 74 62 75 66 66 65 | 72 65 64 20 3d 20 30 3b |ortbuffe|red = 0;|
|00004a80| 0d 09 20 20 20 20 62 70 | 78 20 3d 20 62 70 20 2d |..    bp|x = bp -|
|00004a90| 20 73 74 72 2d 3e 73 74 | 72 5f 70 74 72 3b 09 2f | str->st|r_ptr;./|
|00004aa0| 2a 20 70 72 65 70 61 72 | 65 20 66 6f 72 20 70 6f |* prepar|e for po|
|00004ab0| 73 73 69 62 6c 65 20 72 | 65 6c 6f 63 61 74 69 6f |ssible r|elocatio|
|00004ac0| 6e 20 2a 2f 0d 09 20 20 | 20 20 73 74 72 2d 3e 73 |n */..  |  str->s|
|00004ad0| 74 72 5f 63 75 72 20 3d | 20 62 70 78 3b 0d 09 20 |tr_cur =| bpx;.. |
|00004ae0| 20 20 20 53 54 52 5f 47 | 52 4f 57 28 73 74 72 2c |   STR_G|ROW(str,|
|00004af0| 20 73 74 72 2d 3e 73 74 | 72 5f 6c 65 6e 20 2b 20 | str->st|r_len + |
|00004b00| 61 70 70 65 6e 64 20 2b | 20 63 6e 74 20 2b 20 32 |append +| cnt + 2|
|00004b10| 29 3b 0d 09 20 20 20 20 | 62 70 20 3d 20 73 74 72 |);..    |bp = str|
|00004b20| 2d 3e 73 74 72 5f 70 74 | 72 20 2b 20 62 70 78 3b |->str_pt|r + bpx;|
|00004b30| 09 2f 2a 20 72 65 63 6f | 6e 73 74 69 74 75 74 65 |./* reco|nstitute|
|00004b40| 20 6f 75 72 20 70 6f 69 | 6e 74 65 72 20 2a 2f 0d | our poi|nter */.|
|00004b50| 09 20 20 20 20 63 6f 6e | 74 69 6e 75 65 3b 0d 09 |.    con|tinue;..|
|00004b60| 7d 0d 0d 09 66 70 2d 3e | 5f 63 6e 74 20 3d 20 63 |}...fp->|_cnt = c|
|00004b70| 6e 74 3b 09 09 09 2f 2a | 20 64 65 72 65 67 69 73 |nt;.../*| deregis|
|00004b80| 74 65 72 69 7a 65 20 63 | 6e 74 20 61 6e 64 20 70 |terize c|nt and p|
|00004b90| 74 72 20 2a 2f 0d 09 66 | 70 2d 3e 5f 70 74 72 20 |tr */..f|p->_ptr |
|00004ba0| 3d 20 70 74 72 3b 0d 09 | 69 20 3d 20 5f 66 69 6c |= ptr;..|i = _fil|
|00004bb0| 62 75 66 28 66 70 29 3b | 09 09 2f 2a 20 67 65 74 |buf(fp);|../* get|
|00004bc0| 20 6d 6f 72 65 20 63 68 | 61 72 61 63 74 65 72 73 | more ch|aracters|
|00004bd0| 20 2a 2f 0d 09 63 6e 74 | 20 3d 20 66 70 2d 3e 5f | */..cnt| = fp->_|
|00004be0| 63 6e 74 3b 0d 09 70 74 | 72 20 3d 20 66 70 2d 3e |cnt;..pt|r = fp->|
|00004bf0| 5f 70 74 72 3b 09 09 09 | 2f 2a 20 72 65 72 65 67 |_ptr;...|/* rereg|
|00004c00| 69 73 74 65 72 69 7a 65 | 20 63 6e 74 20 61 6e 64 |isterize| cnt and|
|00004c10| 20 70 74 72 20 2a 2f 0d | 0d 09 62 70 78 20 3d 20 | ptr */.|..bpx = |
|00004c20| 62 70 20 2d 20 73 74 72 | 2d 3e 73 74 72 5f 70 74 |bp - str|->str_pt|
|00004c30| 72 3b 09 2f 2a 20 70 72 | 65 70 61 72 65 20 66 6f |r;./* pr|epare fo|
|00004c40| 72 20 70 6f 73 73 69 62 | 6c 65 20 72 65 6c 6f 63 |r possib|le reloc|
|00004c50| 61 74 69 6f 6e 20 2a 2f | 0d 09 73 74 72 2d 3e 73 |ation */|..str->s|
|00004c60| 74 72 5f 63 75 72 20 3d | 20 62 70 78 3b 0d 09 53 |tr_cur =| bpx;..S|
|00004c70| 54 52 5f 47 52 4f 57 28 | 73 74 72 2c 20 62 70 78 |TR_GROW(|str, bpx|
|00004c80| 20 2b 20 63 6e 74 20 2b | 20 32 29 3b 0d 09 62 70 | + cnt +| 2);..bp|
|00004c90| 20 3d 20 73 74 72 2d 3e | 73 74 72 5f 70 74 72 20 | = str->|str_ptr |
|00004ca0| 2b 20 62 70 78 3b 09 2f | 2a 20 72 65 63 6f 6e 73 |+ bpx;./|* recons|
|00004cb0| 74 69 74 75 74 65 20 6f | 75 72 20 70 6f 69 6e 74 |titute o|ur point|
|00004cc0| 65 72 20 2a 2f 0d 0d 09 | 69 66 20 28 69 20 3d 3d |er */...|if (i ==|
|00004cd0| 20 6e 65 77 6c 69 6e 65 | 29 20 7b 09 09 2f 2a 20 | newline|) {../* |
|00004ce0| 61 6c 6c 20 64 6f 6e 65 | 20 66 6f 72 20 6e 6f 77 |all done| for now|
|00004cf0| 3f 20 2a 2f 0d 09 20 20 | 20 20 2a 62 70 2b 2b 20 |? */..  |  *bp++ |
|00004d00| 3d 20 69 3b 0d 09 20 20 | 20 20 67 6f 74 6f 20 74 |= i;..  |  goto t|
|00004d10| 68 61 74 73 5f 61 6c 6c | 5f 66 6f 6c 6b 73 3b 0d |hats_all|_folks;.|
|00004d20| 09 7d 0d 09 65 6c 73 65 | 20 69 66 20 28 69 20 3d |.}..else| if (i =|
|00004d30| 3d 20 45 4f 46 29 09 09 | 2f 2a 20 61 6c 6c 20 64 |= EOF)..|/* all d|
|00004d40| 6f 6e 65 20 66 6f 72 20 | 65 76 65 72 3f 20 2a 2f |one for |ever? */|
|00004d50| 0d 09 20 20 20 20 67 6f | 74 6f 20 74 68 61 74 73 |..    go|to thats|
|00004d60| 5f 72 65 61 6c 6c 79 5f | 61 6c 6c 5f 66 6f 6c 6b |_really_|all_folk|
|00004d70| 73 3b 0d 09 2a 62 70 2b | 2b 20 3d 20 69 3b 09 09 |s;..*bp+|+ = i;..|
|00004d80| 09 2f 2a 20 6e 6f 77 20 | 67 6f 20 62 61 63 6b 20 |./* now |go back |
|00004d90| 74 6f 20 73 63 72 65 61 | 6d 69 6e 67 20 6c 6f 6f |to screa|ming loo|
|00004da0| 70 20 2a 2f 0d 20 20 20 | 20 7d 0d 0d 74 68 61 74 |p */.   | }..that|
|00004db0| 73 5f 61 6c 6c 5f 66 6f | 6c 6b 73 3a 0d 20 20 20 |s_all_fo|lks:.   |
|00004dc0| 20 69 66 20 28 72 73 6c | 65 6e 20 3e 20 31 20 26 | if (rsl|en > 1 &|
|00004dd0| 26 20 28 62 70 20 2d 20 | 73 74 72 2d 3e 73 74 72 |& (bp - |str->str|
|00004de0| 5f 70 74 72 20 3c 20 72 | 73 6c 65 6e 20 7c 7c 20 |_ptr < r|slen || |
|00004df0| 62 63 6d 70 28 62 70 20 | 2d 20 72 73 6c 65 6e 2c |bcmp(bp |- rslen,|
|00004e00| 20 72 73 2c 20 72 73 6c | 65 6e 29 29 29 0d 09 67 | rs, rsl|en)))..g|
|00004e10| 6f 74 6f 20 73 63 72 65 | 61 6d 65 72 3b 09 2f 2a |oto scre|amer;./*|
|00004e20| 20 67 6f 20 62 61 63 6b | 20 74 6f 20 74 68 65 20 | go back| to the |
|00004e30| 66 72 61 79 20 2a 2f 0d | 74 68 61 74 73 5f 72 65 |fray */.|thats_re|
|00004e40| 61 6c 6c 79 5f 61 6c 6c | 5f 66 6f 6c 6b 73 3a 0d |ally_all|_folks:.|
|00004e50| 20 20 20 20 69 66 20 28 | 73 68 6f 72 74 62 75 66 |    if (|shortbuf|
|00004e60| 66 65 72 65 64 29 0d 09 | 63 6e 74 20 2b 3d 20 73 |fered)..|cnt += s|
|00004e70| 68 6f 72 74 62 75 66 66 | 65 72 65 64 3b 0d 20 20 |hortbuff|ered;.  |
|00004e80| 20 20 66 70 2d 3e 5f 63 | 6e 74 20 3d 20 63 6e 74 |  fp->_c|nt = cnt|
|00004e90| 3b 09 09 09 2f 2a 20 70 | 75 74 20 74 68 65 73 65 |;.../* p|ut these|
|00004ea0| 20 62 61 63 6b 20 6f 72 | 20 77 65 27 72 65 20 69 | back or| we're i|
|00004eb0| 6e 20 74 72 6f 75 62 6c | 65 20 2a 2f 0d 20 20 20 |n troubl|e */.   |
|00004ec0| 20 66 70 2d 3e 5f 70 74 | 72 20 3d 20 70 74 72 3b | fp->_pt|r = ptr;|
|00004ed0| 0d 20 20 20 20 2a 62 70 | 20 3d 20 27 5c 30 27 3b |.    *bp| = '\0';|
|00004ee0| 0d 20 20 20 20 73 74 72 | 2d 3e 73 74 72 5f 63 75 |.    str|->str_cu|
|00004ef0| 72 20 3d 20 62 70 20 2d | 20 73 74 72 2d 3e 73 74 |r = bp -| str->st|
|00004f00| 72 5f 70 74 72 3b 09 2f | 2a 20 73 65 74 20 6c 65 |r_ptr;./|* set le|
|00004f10| 6e 67 74 68 20 2a 2f 0d | 0d 23 65 6c 73 65 20 2f |ngth */.|.#else /|
|00004f20| 2a 20 21 53 54 44 53 54 | 44 49 4f 20 2a 2f 09 2f |* !STDST|DIO */./|
|00004f30| 2a 20 54 68 65 20 62 69 | 67 2c 20 73 6c 6f 77 2c |* The bi|g, slow,|
|00004f40| 20 61 6e 64 20 73 74 75 | 70 69 64 20 77 61 79 20 | and stu|pid way |
|00004f50| 2a 2f 0d 0d 20 20 20 20 | 7b 0d 09 73 74 61 74 69 |*/..    |{..stati|
|00004f60| 63 20 63 68 61 72 20 62 | 75 66 5b 38 31 39 32 5d |c char b|uf[8192]|
|00004f70| 3b 0d 09 63 68 61 72 20 | 2a 20 62 70 65 20 3d 20 |;..char |* bpe = |
|00004f80| 62 75 66 20 2b 20 73 69 | 7a 65 6f 66 28 62 75 66 |buf + si|zeof(buf|
|00004f90| 29 20 2d 20 33 3b 0d 0d | 73 63 72 65 61 6d 65 72 |) - 3;..|screamer|
|00004fa0| 3a 0d 09 62 70 20 3d 20 | 62 75 66 3b 0d 09 77 68 |:..bp = |buf;..wh|
|00004fb0| 69 6c 65 20 28 28 69 20 | 3d 20 67 65 74 63 28 66 |ile ((i |= getc(f|
|00004fc0| 70 29 29 20 21 3d 20 45 | 4f 46 20 26 26 20 28 2a |p)) != E|OF && (*|
|00004fd0| 62 70 2b 2b 20 3d 20 69 | 29 20 21 3d 20 6e 65 77 |bp++ = i|) != new|
|00004fe0| 6c 69 6e 65 20 26 26 20 | 62 70 20 3c 20 62 70 65 |line && |bp < bpe|
|00004ff0| 29 20 3b 0d 0d 09 69 66 | 20 28 61 70 70 65 6e 64 |) ;...if| (append|
|00005000| 29 0d 09 20 20 20 20 73 | 74 72 5f 6e 63 61 74 28 |)..    s|tr_ncat(|
|00005010| 73 74 72 2c 20 62 75 66 | 2c 20 62 70 20 2d 20 62 |str, buf|, bp - b|
|00005020| 75 66 29 3b 0d 09 65 6c | 73 65 0d 09 20 20 20 20 |uf);..el|se..    |
|00005030| 73 74 72 5f 6e 73 65 74 | 28 73 74 72 2c 20 62 75 |str_nset|(str, bu|
|00005040| 66 2c 20 62 70 20 2d 20 | 62 75 66 29 3b 0d 09 69 |f, bp - |buf);..i|
|00005050| 66 20 28 69 20 21 3d 20 | 45 4f 46 09 09 09 2f 2a |f (i != |EOF.../*|
|00005060| 20 6a 6f 79 20 2a 2f 0d | 09 20 20 20 20 26 26 0d | joy */.|.    &&.|
|00005070| 09 20 20 20 20 28 69 20 | 21 3d 20 6e 65 77 6c 69 |.    (i |!= newli|
|00005080| 6e 65 0d 09 20 20 20 20 | 20 7c 7c 0d 09 20 20 20 |ne..    | ||..   |
|00005090| 20 20 28 72 73 6c 65 6e | 20 3e 20 31 0d 09 20 20 |  (rslen| > 1..  |
|000050a0| 20 20 20 20 26 26 0d 09 | 20 20 20 20 20 20 28 73 |    &&..|      (s|
|000050b0| 74 72 2d 3e 73 74 72 5f | 63 75 72 20 3c 20 72 73 |tr->str_|cur < rs|
|000050c0| 6c 65 6e 0d 09 20 20 20 | 20 20 20 20 7c 7c 0d 09 |len..   |    ||..|
|000050d0| 20 20 20 20 20 20 20 62 | 63 6d 70 28 73 74 72 2d |       b|cmp(str-|
|000050e0| 3e 73 74 72 5f 70 74 72 | 20 2b 20 73 74 72 2d 3e |>str_ptr| + str->|
|000050f0| 73 74 72 5f 63 75 72 20 | 2d 20 72 73 6c 65 6e 2c |str_cur |- rslen,|
|00005100| 20 72 73 2c 20 72 73 6c | 65 6e 29 0d 09 20 20 20 | rs, rsl|en)..   |
|00005110| 20 20 20 29 0d 09 20 20 | 20 20 20 29 0d 09 20 20 |   )..  |   )..  |
|00005120| 20 20 29 0d 09 20 20 20 | 29 0d 09 7b 0d 09 20 20 |  )..   |)..{..  |
|00005130| 20 20 61 70 70 65 6e 64 | 20 3d 20 2d 31 3b 0d 09 |  append| = -1;..|
|00005140| 20 20 20 20 67 6f 74 6f | 20 73 63 72 65 61 6d 65 |    goto| screame|
|00005150| 72 3b 0d 09 7d 0d 20 20 | 20 20 7d 0d 0d 23 65 6e |r;..}.  |  }..#en|
|00005160| 64 69 66 20 2f 2a 20 53 | 54 44 53 54 44 49 4f 20 |dif /* S|TDSTDIO |
|00005170| 2a 2f 0d 0d 20 20 20 20 | 69 66 20 28 72 73 70 61 |*/..    |if (rspa|
|00005180| 72 61 29 20 7b 0d 20 20 | 20 20 20 20 20 20 77 68 |ra) {.  |      wh|
|00005190| 69 6c 65 20 28 69 20 21 | 3d 20 45 4f 46 29 20 7b |ile (i !|= EOF) {|
|000051a0| 0d 09 20 20 20 20 69 20 | 3d 20 67 65 74 63 28 66 |..    i |= getc(f|
|000051b0| 70 29 3b 0d 09 20 20 20 | 20 69 66 20 28 69 20 21 |p);..   | if (i !|
|000051c0| 3d 20 27 5c 6e 27 29 20 | 7b 0d 09 09 75 6e 67 65 |= '\n') |{...unge|
|000051d0| 74 63 28 69 2c 66 70 29 | 3b 0d 09 09 62 72 65 61 |tc(i,fp)|;...brea|
|000051e0| 6b 3b 0d 09 20 20 20 20 | 7d 0d 09 7d 0d 20 20 20 |k;..    |}..}.   |
|000051f0| 20 7d 0d 20 20 20 20 72 | 65 74 75 72 6e 20 73 74 | }.    r|eturn st|
|00005200| 72 2d 3e 73 74 72 5f 63 | 75 72 20 2d 20 61 70 70 |r->str_c|ur - app|
|00005210| 65 6e 64 20 3f 20 73 74 | 72 2d 3e 73 74 72 5f 70 |end ? st|r->str_p|
|00005220| 74 72 20 3a 20 4e 75 6c | 6c 63 68 3b 0d 7d 0d 0d |tr : Nul|lch;.}..|
|00005230| 41 52 47 20 2a 0d 70 61 | 72 73 65 6c 69 73 74 28 |ARG *.pa|rselist(|
|00005240| 73 74 72 29 0d 53 54 52 | 20 2a 73 74 72 3b 0d 7b |str).STR| *str;.{|
|00005250| 0d 20 20 20 20 72 65 67 | 69 73 74 65 72 20 43 4d |.    reg|ister CM|
|00005260| 44 20 2a 63 6d 64 3b 0d | 20 20 20 20 72 65 67 69 |D *cmd;.|    regi|
|00005270| 73 74 65 72 20 41 52 47 | 20 2a 61 72 67 3b 0d 20 |ster ARG| *arg;. |
|00005280| 20 20 20 43 4d 44 20 2a | 6f 6c 64 63 75 72 63 6d |   CMD *|oldcurcm|
|00005290| 64 20 3d 20 63 75 72 63 | 6d 64 3b 0d 20 20 20 20 |d = curc|md;.    |
|000052a0| 69 6e 74 20 6f 6c 64 70 | 65 72 6c 64 62 20 3d 20 |int oldp|erldb = |
|000052b0| 70 65 72 6c 64 62 3b 0d | 20 20 20 20 69 6e 74 20 |perldb;.|    int |
|000052c0| 72 65 74 76 61 6c 3b 0d | 0d 20 20 20 20 70 65 72 |retval;.|.    per|
|000052d0| 6c 64 62 20 3d 20 30 3b | 0d 20 20 20 20 73 74 72 |ldb = 0;|.    str|
|000052e0| 5f 73 73 65 74 28 6c 69 | 6e 65 73 74 72 2c 73 74 |_sset(li|nestr,st|
|000052f0| 72 29 3b 0d 20 20 20 20 | 69 6e 5f 65 76 61 6c 2b |r);.    |in_eval+|
|00005300| 2b 3b 0d 20 20 20 20 6f | 6c 64 6f 6c 64 62 75 66 |+;.    o|ldoldbuf|
|00005310| 70 74 72 20 3d 20 6f 6c | 64 62 75 66 70 74 72 20 |ptr = ol|dbufptr |
|00005320| 3d 20 62 75 66 70 74 72 | 20 3d 20 73 74 72 5f 67 |= bufptr| = str_g|
|00005330| 65 74 28 6c 69 6e 65 73 | 74 72 29 3b 0d 20 20 20 |et(lines|tr);.   |
|00005340| 20 62 75 66 65 6e 64 20 | 3d 20 62 75 66 70 74 72 | bufend |= bufptr|
|00005350| 20 2b 20 6c 69 6e 65 73 | 74 72 2d 3e 73 74 72 5f | + lines|tr->str_|
|00005360| 63 75 72 3b 0d 20 20 20 | 20 69 66 20 28 2b 2b 6c |cur;.   | if (++l|
|00005370| 6f 6f 70 5f 70 74 72 20 | 3e 3d 20 6c 6f 6f 70 5f |oop_ptr |>= loop_|
|00005380| 6d 61 78 29 20 7b 0d 20 | 20 20 20 20 20 20 20 6c |max) {. |       l|
|00005390| 6f 6f 70 5f 6d 61 78 20 | 2b 3d 20 31 32 38 3b 0d |oop_max |+= 128;.|
|000053a0| 20 20 20 20 20 20 20 20 | 52 65 6e 65 77 28 6c 6f |        |Renew(lo|
|000053b0| 6f 70 5f 73 74 61 63 6b | 2c 20 6c 6f 6f 70 5f 6d |op_stack|, loop_m|
|000053c0| 61 78 2c 20 73 74 72 75 | 63 74 20 6c 6f 6f 70 29 |ax, stru|ct loop)|
|000053d0| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 6c 6f 6f 70 |;.    }.|    loop|
|000053e0| 5f 73 74 61 63 6b 5b 6c | 6f 6f 70 5f 70 74 72 5d |_stack[l|oop_ptr]|
|000053f0| 2e 6c 6f 6f 70 5f 6c 61 | 62 65 6c 20 3d 20 22 5f |.loop_la|bel = "_|
|00005400| 45 56 41 4c 5f 22 3b 0d | 20 20 20 20 6c 6f 6f 70 |EVAL_";.|    loop|
|00005410| 5f 73 74 61 63 6b 5b 6c | 6f 6f 70 5f 70 74 72 5d |_stack[l|oop_ptr]|
|00005420| 2e 6c 6f 6f 70 5f 73 70 | 20 3d 20 30 3b 0d 23 69 |.loop_sp| = 0;.#i|
|00005430| 66 64 65 66 20 44 45 42 | 55 47 47 49 4e 47 0d 20 |fdef DEB|UGGING. |
|00005440| 20 20 20 69 66 20 28 64 | 65 62 75 67 20 26 20 34 |   if (d|ebug & 4|
|00005450| 29 20 7b 0d 20 20 20 20 | 20 20 20 20 64 65 62 28 |) {.    |    deb(|
|00005460| 22 28 50 75 73 68 69 6e | 67 20 6c 61 62 65 6c 20 |"(Pushin|g label |
|00005470| 23 25 64 20 5f 45 56 41 | 4c 5f 29 5c 6e 22 2c 20 |#%d _EVA|L_)\n", |
|00005480| 6c 6f 6f 70 5f 70 74 72 | 29 3b 0d 20 20 20 20 7d |loop_ptr|);.    }|
|00005490| 0d 23 65 6e 64 69 66 0d | 20 20 20 20 69 66 20 28 |.#endif.|    if (|
|000054a0| 73 65 74 6a 6d 70 28 6c | 6f 6f 70 5f 73 74 61 63 |setjmp(l|oop_stac|
|000054b0| 6b 5b 6c 6f 6f 70 5f 70 | 74 72 5d 2e 6c 6f 6f 70 |k[loop_p|tr].loop|
|000054c0| 5f 65 6e 76 29 29 20 7b | 0d 09 69 6e 5f 65 76 61 |_env)) {|..in_eva|
|000054d0| 6c 2d 2d 3b 0d 09 6c 6f | 6f 70 5f 70 74 72 2d 2d |l--;..lo|op_ptr--|
|000054e0| 3b 0d 09 70 65 72 6c 64 | 62 20 3d 20 6f 6c 64 70 |;..perld|b = oldp|
|000054f0| 65 72 6c 64 62 3b 0d 09 | 66 61 74 61 6c 28 22 25 |erldb;..|fatal("%|
|00005500| 73 5c 6e 22 2c 73 74 61 | 62 5f 76 61 6c 28 73 74 |s\n",sta|b_val(st|
|00005510| 61 62 65 6e 74 28 22 40 | 22 2c 54 52 55 45 29 29 |abent("@|",TRUE))|
|00005520| 2d 3e 73 74 72 5f 70 74 | 72 29 3b 0d 20 20 20 20 |->str_pt|r);.    |
|00005530| 7d 0d 23 69 66 64 65 66 | 20 44 45 42 55 47 47 49 |}.#ifdef| DEBUGGI|
|00005540| 4e 47 0d 20 20 20 20 69 | 66 20 28 64 65 62 75 67 |NG.    i|f (debug|
|00005550| 20 26 20 34 29 20 7b 0d | 09 63 68 61 72 20 2a 74 | & 4) {.|.char *t|
|00005560| 6d 70 73 20 3d 20 6c 6f | 6f 70 5f 73 74 61 63 6b |mps = lo|op_stack|
|00005570| 5b 6c 6f 6f 70 5f 70 74 | 72 5d 2e 6c 6f 6f 70 5f |[loop_pt|r].loop_|
|00005580| 6c 61 62 65 6c 3b 0d 09 | 64 65 62 28 22 28 50 6f |label;..|deb("(Po|
|00005590| 70 70 69 6e 67 20 6c 61 | 62 65 6c 20 23 25 64 20 |pping la|bel #%d |
|000055a0| 25 73 29 5c 6e 22 2c 6c | 6f 6f 70 5f 70 74 72 2c |%s)\n",l|oop_ptr,|
|000055b0| 0d 09 20 20 20 20 74 6d | 70 73 20 3f 20 74 6d 70 |..    tm|ps ? tmp|
|000055c0| 73 20 3a 20 22 22 20 29 | 3b 0d 20 20 20 20 7d 0d |s : "" )|;.    }.|
|000055d0| 23 65 6e 64 69 66 0d 20 | 20 20 20 6c 6f 6f 70 5f |#endif. |   loop_|
|000055e0| 70 74 72 2d 2d 3b 0d 20 | 20 20 20 65 72 72 6f 72 |ptr--;. |   error|
|000055f0| 5f 63 6f 75 6e 74 20 3d | 20 30 3b 0d 20 20 20 20 |_count =| 0;.    |
|00005600| 63 75 72 63 6d 64 20 3d | 20 26 63 6f 6d 70 69 6c |curcmd =| &compil|
|00005610| 69 6e 67 3b 0d 20 20 20 | 20 63 75 72 63 6d 64 2d |ing;.   | curcmd-|
|00005620| 3e 63 5f 6c 69 6e 65 20 | 3d 20 6f 6c 64 63 75 72 |>c_line |= oldcur|
|00005630| 63 6d 64 2d 3e 63 5f 6c | 69 6e 65 3b 0d 20 20 20 |cmd->c_l|ine;.   |
|00005640| 20 72 65 74 76 61 6c 20 | 3d 20 79 79 70 61 72 73 | retval |= yypars|
|00005650| 65 28 29 3b 0d 20 20 20 | 20 63 75 72 63 6d 64 20 |e();.   | curcmd |
|00005660| 3d 20 6f 6c 64 63 75 72 | 63 6d 64 3b 0d 20 20 20 |= oldcur|cmd;.   |
|00005670| 20 70 65 72 6c 64 62 20 | 3d 20 6f 6c 64 70 65 72 | perldb |= oldper|
|00005680| 6c 64 62 3b 0d 20 20 20 | 20 69 6e 5f 65 76 61 6c |ldb;.   | in_eval|
|00005690| 2d 2d 3b 0d 20 20 20 20 | 69 66 20 28 72 65 74 76 |--;.    |if (retv|
|000056a0| 61 6c 20 7c 7c 20 65 72 | 72 6f 72 5f 63 6f 75 6e |al || er|ror_coun|
|000056b0| 74 29 0d 09 66 61 74 61 | 6c 28 22 49 6e 76 61 6c |t)..fata|l("Inval|
|000056c0| 69 64 20 63 6f 6d 70 6f | 6e 65 6e 74 20 69 6e 20 |id compo|nent in |
|000056d0| 73 74 72 69 6e 67 20 6f | 72 20 66 6f 72 6d 61 74 |string o|r format|
|000056e0| 22 29 3b 0d 20 20 20 20 | 63 6d 64 20 3d 20 65 76 |");.    |cmd = ev|
|000056f0| 61 6c 5f 72 6f 6f 74 3b | 0d 20 20 20 20 61 72 67 |al_root;|.    arg|
|00005700| 20 3d 20 63 6d 64 2d 3e | 63 5f 65 78 70 72 3b 0d | = cmd->|c_expr;.|
|00005710| 20 20 20 20 69 66 20 28 | 63 6d 64 2d 3e 63 5f 74 |    if (|cmd->c_t|
|00005720| 79 70 65 20 21 3d 20 43 | 5f 45 58 50 52 20 7c 7c |ype != C|_EXPR |||
|00005730| 20 63 6d 64 2d 3e 63 5f | 6e 65 78 74 20 7c 7c 20 | cmd->c_|next || |
|00005740| 61 72 67 2d 3e 61 72 67 | 5f 74 79 70 65 20 21 3d |arg->arg|_type !=|
|00005750| 20 4f 5f 4c 49 53 54 29 | 0d 09 66 61 74 61 6c 28 | O_LIST)|..fatal(|
|00005760| 22 70 61 6e 69 63 3a 20 | 65 72 72 6f 72 20 69 6e |"panic: |error in|
|00005770| 20 70 61 72 73 65 6c 69 | 73 74 20 25 64 20 25 78 | parseli|st %d %x|
|00005780| 20 25 64 22 2c 20 63 6d | 64 2d 3e 63 5f 74 79 70 | %d", cm|d->c_typ|
|00005790| 65 2c 0d 09 20 20 63 6d | 64 2d 3e 63 5f 6e 65 78 |e,..  cm|d->c_nex|
|000057a0| 74 2c 20 61 72 67 20 3f | 20 61 72 67 2d 3e 61 72 |t, arg ?| arg->ar|
|000057b0| 67 5f 74 79 70 65 20 3a | 20 2d 31 29 3b 0d 20 20 |g_type :| -1);.  |
|000057c0| 20 20 63 6d 64 2d 3e 63 | 5f 65 78 70 72 20 3d 20 |  cmd->c|_expr = |
|000057d0| 4e 75 6c 6c 61 72 67 3b | 0d 20 20 20 20 63 6d 64 |Nullarg;|.    cmd|
|000057e0| 5f 66 72 65 65 28 63 6d | 64 29 3b 0d 20 20 20 20 |_free(cm|d);.    |
|000057f0| 65 76 61 6c 5f 72 6f 6f | 74 20 3d 20 4e 75 6c 6c |eval_roo|t = Null|
|00005800| 63 6d 64 3b 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |cmd;.   | return |
|00005810| 61 72 67 3b 0d 7d 0d 0d | 76 6f 69 64 0d 69 6e 74 |arg;.}..|void.int|
|00005820| 72 70 63 6f 6d 70 69 6c | 65 28 73 72 63 29 0d 53 |rpcompil|e(src).S|
|00005830| 54 52 20 2a 73 72 63 3b | 0d 7b 0d 20 20 20 20 72 |TR *src;|.{.    r|
|00005840| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 73 20 |egister |char *s |
|00005850| 3d 20 73 74 72 5f 67 65 | 74 28 73 72 63 29 3b 0d |= str_ge|t(src);.|
|00005860| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 63 68 61 |    regi|ster cha|
|00005870| 72 20 2a 73 65 6e 64 20 | 3d 20 73 20 2b 20 73 72 |r *send |= s + sr|
|00005880| 63 2d 3e 73 74 72 5f 63 | 75 72 3b 0d 20 20 20 20 |c->str_c|ur;.    |
|00005890| 72 65 67 69 73 74 65 72 | 20 53 54 52 20 2a 73 74 |register| STR *st|
|000058a0| 72 3b 0d 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |r;.    r|egister |
|000058b0| 63 68 61 72 20 2a 74 3b | 0d 20 20 20 20 53 54 52 |char *t;|.    STR|
|000058c0| 20 2a 74 6f 70 61 72 73 | 65 3b 0d 20 20 20 20 53 | *topars|e;.    S|
|000058d0| 54 52 4c 45 4e 20 6c 65 | 6e 3b 0d 20 20 20 20 72 |TRLEN le|n;.    r|
|000058e0| 65 67 69 73 74 65 72 20 | 69 6e 74 20 62 72 61 63 |egister |int brac|
|000058f0| 6b 65 74 73 3b 0d 20 20 | 20 20 72 65 67 69 73 74 |kets;.  |  regist|
|00005900| 65 72 20 63 68 61 72 20 | 2a 64 3b 0d 20 20 20 20 |er char |*d;.    |
|00005910| 53 54 41 42 20 2a 73 74 | 61 62 3b 0d 20 20 20 20 |STAB *st|ab;.    |
|00005920| 63 68 61 72 20 2a 63 68 | 65 63 6b 70 6f 69 6e 74 |char *ch|eckpoint|
|00005930| 3b 0d 20 20 20 20 69 6e | 74 20 73 61 77 63 61 73 |;.    in|t sawcas|
|00005940| 65 20 3d 20 30 3b 0d 0d | 20 20 20 20 74 6f 70 61 |e = 0;..|    topa|
|00005950| 72 73 65 20 3d 20 53 74 | 72 5f 6e 65 77 28 37 36 |rse = St|r_new(76|
|00005960| 2c 30 29 3b 0d 20 20 20 | 20 73 74 72 20 3d 20 53 |,0);.   | str = S|
|00005970| 74 72 5f 6e 65 77 28 37 | 37 2c 30 29 3b 0d 0d 20 |tr_new(7|7,0);.. |
|00005980| 20 20 20 73 74 72 5f 6e | 73 65 74 28 73 74 72 2c |   str_n|set(str,|
|00005990| 22 22 2c 30 29 3b 0d 20 | 20 20 20 73 74 72 5f 6e |"",0);. |   str_n|
|000059a0| 73 65 74 28 74 6f 70 61 | 72 73 65 2c 22 22 2c 30 |set(topa|rse,"",0|
|000059b0| 29 3b 0d 20 20 20 20 74 | 20 3d 20 73 3b 0d 20 20 |);.    t| = s;.  |
|000059c0| 20 20 77 68 69 6c 65 20 | 28 73 20 3c 20 73 65 6e |  while |(s < sen|
|000059d0| 64 29 20 7b 0d 09 69 66 | 20 28 2a 73 20 3d 3d 20 |d) {..if| (*s == |
|000059e0| 27 5c 5c 27 20 26 26 20 | 73 5b 31 5d 20 26 26 20 |'\\' && |s[1] && |
|000059f0| 69 6e 64 65 78 28 22 24 | 40 5b 7b 5c 5c 5d 7d 6c |index("$|@[{\\]}l|
|00005a00| 4c 75 55 45 22 2c 73 5b | 31 5d 29 29 20 7b 0d 09 |LuUE",s[|1])) {..|
|00005a10| 20 20 20 20 73 74 72 5f | 6e 63 61 74 28 73 74 72 |    str_|ncat(str|
|00005a20| 2c 20 74 2c 20 73 20 2d | 20 74 29 3b 0d 09 20 20 |, t, s -| t);..  |
|00005a30| 20 20 2b 2b 73 3b 0d 09 | 20 20 20 20 69 66 20 28 |  ++s;..|    if (|
|00005a40| 69 73 41 4c 50 48 41 28 | 2a 73 29 29 20 7b 0d 09 |isALPHA(|*s)) {..|
|00005a50| 09 73 74 72 5f 6e 63 61 | 74 28 73 74 72 2c 20 22 |.str_nca|t(str, "|
|00005a60| 24 63 22 2c 20 32 29 3b | 0d 09 09 73 61 77 63 61 |$c", 2);|...sawca|
|00005a70| 73 65 20 3d 20 28 2a 73 | 20 21 3d 20 27 45 27 29 |se = (*s| != 'E')|
|00005a80| 3b 0d 09 20 20 20 20 7d | 0d 09 20 20 20 20 65 6c |;..    }|..    el|
|00005a90| 73 65 20 7b 0d 09 09 69 | 66 20 28 2a 6e 6f 69 6e |se {...i|f (*noin|
|00005aa0| 74 72 70 29 20 7b 09 09 | 2f 2a 20 69 6e 20 61 20 |trp) {..|/* in a |
|00005ab0| 72 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |regular |expressi|
|00005ac0| 6f 6e 20 2a 2f 0d 09 09 | 20 20 20 20 69 66 20 28 |on */...|    if (|
|00005ad0| 2a 73 20 3d 3d 20 27 40 | 27 29 09 2f 2a 20 61 6c |*s == '@|')./* al|
|00005ae0| 77 61 79 73 20 73 74 72 | 69 70 20 5c 40 20 2a 2f |ways str|ip \@ */|
|00005af0| 20 2f 2a 53 55 50 50 52 | 45 53 53 20 35 33 30 2a | /*SUPPR|ESS 530*|
|00005b00| 2f 0d 09 09 09 3b 0d 09 | 09 20 20 20 20 65 6c 73 |/....;..|.    els|
|00005b10| 65 09 09 2f 2a 20 64 6f | 6e 27 74 20 73 74 72 69 |e../* do|n't stri|
|00005b20| 70 20 5c 5c 2c 20 5c 5b | 2c 20 5c 7b 20 65 74 63 |p \\, \[|, \{ etc|
|00005b30| 2e 20 2a 2f 0d 09 09 09 | 73 74 72 5f 6e 63 61 74 |. */....|str_ncat|
|00005b40| 28 73 74 72 2c 73 2d 31 | 2c 31 29 3b 0d 09 09 7d |(str,s-1|,1);...}|
|00005b50| 0d 09 09 73 74 72 5f 6e | 63 61 74 28 73 74 72 2c |...str_n|cat(str,|
|00005b60| 20 22 24 62 22 2c 20 32 | 29 3b 0d 09 20 20 20 20 | "$b", 2|);..    |
|00005b70| 7d 0d 09 20 20 20 20 73 | 74 72 5f 6e 63 61 74 28 |}..    s|tr_ncat(|
|00005b80| 73 74 72 2c 20 73 2c 20 | 31 29 3b 0d 09 20 20 20 |str, s, |1);..   |
|00005b90| 20 2b 2b 73 3b 0d 09 20 | 20 20 20 74 20 3d 20 73 | ++s;.. |   t = s|
|00005ba0| 3b 0d 09 7d 0d 09 65 6c | 73 65 20 69 66 20 28 2a |;..}..el|se if (*|
|00005bb0| 73 20 3d 3d 20 27 24 27 | 20 26 26 20 73 2b 31 20 |s == '$'| && s+1 |
|00005bc0| 3c 20 73 65 6e 64 20 26 | 26 20 2a 6e 6f 69 6e 74 |< send &|& *noint|
|00005bd0| 72 70 20 26 26 20 69 6e | 64 65 78 28 6e 6f 69 6e |rp && in|dex(noin|
|00005be0| 74 72 70 2c 73 5b 31 5d | 29 29 20 7b 0d 09 20 20 |trp,s[1]|)) {..  |
|00005bf0| 20 20 73 74 72 5f 6e 63 | 61 74 28 73 74 72 2c 20 |  str_nc|at(str, |
|00005c00| 74 2c 20 73 20 2d 20 74 | 29 3b 0d 09 20 20 20 20 |t, s - t|);..    |
|00005c10| 73 74 72 5f 6e 63 61 74 | 28 73 74 72 2c 20 22 24 |str_ncat|(str, "$|
|00005c20| 62 22 2c 20 32 29 3b 0d | 09 20 20 20 20 73 74 72 |b", 2);.|.    str|
|00005c30| 5f 6e 63 61 74 28 73 74 | 72 2c 20 73 2c 20 32 29 |_ncat(st|r, s, 2)|
|00005c40| 3b 0d 09 20 20 20 20 73 | 20 2b 3d 20 32 3b 0d 09 |;..    s| += 2;..|
|00005c50| 20 20 20 20 74 20 3d 20 | 73 3b 0d 09 7d 0d 09 65 |    t = |s;..}..e|
|00005c60| 6c 73 65 20 69 66 20 28 | 28 2a 73 20 3d 3d 20 27 |lse if (|(*s == '|
|00005c70| 40 27 20 7c 7c 20 2a 73 | 20 3d 3d 20 27 24 27 29 |@' || *s| == '$')|
|00005c80| 20 26 26 20 73 2b 31 20 | 3c 20 73 65 6e 64 29 20 | && s+1 |< send) |
|00005c90| 7b 0d 09 20 20 20 20 73 | 74 72 5f 6e 63 61 74 28 |{..    s|tr_ncat(|
|00005ca0| 73 74 72 2c 74 2c 73 2d | 74 29 3b 0d 09 20 20 20 |str,t,s-|t);..   |
|00005cb0| 20 74 20 3d 20 73 3b 0d | 09 20 20 20 20 69 66 20 | t = s;.|.    if |
|00005cc0| 28 2a 73 20 3d 3d 20 27 | 24 27 20 26 26 20 73 5b |(*s == '|$' && s[|
|00005cd0| 31 5d 20 3d 3d 20 27 23 | 27 20 26 26 20 28 69 73 |1] == '#|' && (is|
|00005ce0| 41 4c 50 48 41 28 73 5b | 32 5d 29 20 7c 7c 20 73 |ALPHA(s[|2]) || s|
|00005cf0| 5b 32 5d 20 3d 3d 20 27 | 5f 27 29 29 0d 09 09 73 |[2] == '|_'))...s|
|00005d00| 2b 2b 3b 0d 09 20 20 20 | 20 73 20 3d 20 73 63 61 |++;..   | s = sca|
|00005d10| 6e 69 64 65 6e 74 28 73 | 2c 73 65 6e 64 2c 74 6f |nident(s|,send,to|
|00005d20| 6b 65 6e 62 75 66 29 3b | 0d 09 20 20 20 20 69 66 |kenbuf);|..    if|
|00005d30| 20 28 2a 74 20 3d 3d 20 | 27 40 27 20 26 26 0d 09 | (*t == |'@' &&..|
|00005d40| 20 20 20 20 20 20 28 21 | 28 73 74 61 62 20 3d 20 |      (!|(stab = |
|00005d50| 73 74 61 62 65 6e 74 28 | 74 6f 6b 65 6e 62 75 66 |stabent(|tokenbuf|
|00005d60| 2c 46 41 4c 53 45 29 29 | 20 7c 7c 20 0d 09 09 20 |,FALSE))| || ... |
|00005d70| 28 2a 73 20 3d 3d 20 27 | 7b 27 20 3f 20 21 73 74 |(*s == '|{' ? !st|
|00005d80| 61 62 5f 78 68 61 73 68 | 28 73 74 61 62 29 20 3a |ab_xhash|(stab) :|
|00005d90| 20 21 73 74 61 62 5f 78 | 61 72 72 61 79 28 73 74 | !stab_x|array(st|
|00005da0| 61 62 29 29 20 29 29 20 | 7b 0d 09 09 73 74 72 5f |ab)) )) |{...str_|
|00005db0| 6e 63 61 74 28 73 74 72 | 2c 22 40 22 2c 31 29 3b |ncat(str|,"@",1);|
|00005dc0| 0d 09 09 73 20 3d 20 2b | 2b 74 3b 0d 09 09 63 6f |...s = +|+t;...co|
|00005dd0| 6e 74 69 6e 75 65 3b 09 | 2f 2a 20 67 72 61 6e 64 |ntinue;.|/* grand|
|00005de0| 66 61 74 68 65 72 20 40 | 20 66 72 6f 6d 20 6f 6c |father @| from ol|
|00005df0| 64 20 73 63 72 69 70 74 | 73 20 2a 2f 0d 09 20 20 |d script|s */..  |
|00005e00| 20 20 7d 0d 09 20 20 20 | 20 73 74 72 5f 6e 63 61 |  }..   | str_nca|
|00005e10| 74 28 73 74 72 2c 22 24 | 61 22 2c 32 29 3b 0d 09 |t(str,"$|a",2);..|
|00005e20| 20 20 20 20 73 74 72 5f | 6e 63 61 74 28 74 6f 70 |    str_|ncat(top|
|00005e30| 61 72 73 65 2c 22 2c 22 | 2c 31 29 3b 0d 09 20 20 |arse,","|,1);..  |
|00005e40| 20 20 69 66 20 28 74 5b | 31 5d 20 21 3d 20 27 7b |  if (t[|1] != '{|
|00005e50| 27 20 26 26 20 28 2a 73 | 20 3d 3d 20 27 5b 27 20 |' && (*s| == '[' |
|00005e60| 20 7c 7c 20 2a 73 20 3d | 3d 20 27 7b 27 20 2f 2a | || *s =|= '{' /*|
|00005e70| 20 7d 7d 20 2a 2f 20 29 | 20 26 26 0d 09 20 20 20 | }} */ )| &&..   |
|00005e80| 20 20 20 28 73 74 61 62 | 20 3d 20 73 74 61 62 65 |   (stab| = stabe|
|00005e90| 6e 74 28 74 6f 6b 65 6e | 62 75 66 2c 46 41 4c 53 |nt(token|buf,FALS|
|00005ea0| 45 29 29 20 26 26 0d 09 | 20 20 20 20 20 20 28 28 |E)) &&..|      ((|
|00005eb0| 2a 73 20 3d 3d 20 27 5b | 27 29 20 3f 20 28 73 74 |*s == '[|') ? (st|
|00005ec0| 61 62 5f 78 61 72 72 61 | 79 28 73 74 61 62 29 20 |ab_xarra|y(stab) |
|00005ed0| 21 3d 20 30 29 20 3a 20 | 28 73 74 61 62 5f 78 68 |!= 0) : |(stab_xh|
|00005ee0| 61 73 68 28 73 74 61 62 | 29 20 21 3d 20 30 29 29 |ash(stab|) != 0))|
|00005ef0| 20 29 20 7b 0d 09 09 62 | 72 61 63 6b 65 74 73 20 | ) {...b|rackets |
|00005f00| 3d 20 30 3b 0d 09 09 63 | 68 65 63 6b 70 6f 69 6e |= 0;...c|heckpoin|
|00005f10| 74 20 3d 20 73 3b 0d 09 | 09 64 6f 20 7b 0d 09 09 |t = s;..|.do {...|
|00005f20| 20 20 20 20 73 77 69 74 | 63 68 20 28 2a 73 29 20 |    swit|ch (*s) |
|00005f30| 7b 0d 09 09 20 20 20 20 | 63 61 73 65 20 27 5b 27 |{...    |case '['|
|00005f40| 3a 0d 09 09 09 62 72 61 | 63 6b 65 74 73 2b 2b 3b |:....bra|ckets++;|
|00005f50| 0d 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 20 20 20 |....brea|k;...   |
|00005f60| 20 63 61 73 65 20 27 7b | 27 3a 0d 09 09 09 62 72 | case '{|':....br|
|00005f70| 61 63 6b 65 74 73 2b 2b | 3b 0d 09 09 09 62 72 65 |ackets++|;....bre|
|00005f80| 61 6b 3b 0d 09 09 20 20 | 20 20 63 61 73 65 20 27 |ak;...  |  case '|
|00005f90| 5d 27 3a 0d 09 09 09 62 | 72 61 63 6b 65 74 73 2d |]':....b|rackets-|
|00005fa0| 2d 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 20 |-;....br|eak;... |
|00005fb0| 20 20 20 63 61 73 65 20 | 27 7d 27 3a 0d 09 09 09 |   case |'}':....|
|00005fc0| 62 72 61 63 6b 65 74 73 | 2d 2d 3b 0d 09 09 09 62 |brackets|--;....b|
|00005fd0| 72 65 61 6b 3b 0d 09 09 | 20 20 20 20 63 61 73 65 |reak;...|    case|
|00005fe0| 20 27 24 27 3a 0d 09 09 | 20 20 20 20 63 61 73 65 | '$':...|    case|
|00005ff0| 20 27 25 27 3a 0d 09 09 | 20 20 20 20 63 61 73 65 | '%':...|    case|
|00006000| 20 27 40 27 3a 0d 09 09 | 20 20 20 20 63 61 73 65 | '@':...|    case|
|00006010| 20 27 26 27 3a 0d 09 09 | 20 20 20 20 63 61 73 65 | '&':...|    case|
|00006020| 20 27 2a 27 3a 0d 09 09 | 09 73 20 3d 20 73 63 61 | '*':...|.s = sca|
|00006030| 6e 69 64 65 6e 74 28 73 | 2c 73 65 6e 64 2c 74 6f |nident(s|,send,to|
|00006040| 6b 65 6e 62 75 66 29 3b | 0d 09 09 09 63 6f 6e 74 |kenbuf);|....cont|
|00006050| 69 6e 75 65 3b 0d 09 09 | 20 20 20 20 63 61 73 65 |inue;...|    case|
|00006060| 20 27 5c 27 27 3a 0d 09 | 09 20 20 20 20 63 61 73 | '\'':..|.    cas|
|00006070| 65 20 27 22 27 3a 0d 09 | 09 09 2f 2a 53 55 50 50 |e '"':..|../*SUPP|
|00006080| 52 45 53 53 20 36 38 2a | 2f 0d 09 09 09 73 20 3d |RESS 68*|/....s =|
|00006090| 20 63 70 79 74 69 6c 6c | 28 74 6f 6b 65 6e 62 75 | cpytill|(tokenbu|
|000060a0| 66 2c 73 2b 31 2c 73 65 | 6e 64 2c 2a 73 2c 26 6c |f,s+1,se|nd,*s,&l|
|000060b0| 65 6e 29 3b 0d 09 09 09 | 69 66 20 28 73 20 3e 3d |en);....|if (s >=|
|000060c0| 20 73 65 6e 64 29 0d 09 | 09 09 20 20 20 20 66 61 | send)..|..    fa|
|000060d0| 74 61 6c 28 22 55 6e 74 | 65 72 6d 69 6e 61 74 65 |tal("Unt|erminate|
|000060e0| 64 20 73 74 72 69 6e 67 | 22 29 3b 0d 09 09 09 62 |d string|");....b|
|000060f0| 72 65 61 6b 3b 0d 09 09 | 20 20 20 20 7d 0d 09 09 |reak;...|    }...|
|00006100| 20 20 20 20 73 2b 2b 3b | 0d 09 09 7d 20 77 68 69 |    s++;|...} whi|
|00006110| 6c 65 20 28 62 72 61 63 | 6b 65 74 73 20 3e 20 30 |le (brac|kets > 0|
|00006120| 20 26 26 20 73 20 3c 20 | 73 65 6e 64 29 3b 0d 09 | && s < |send);..|
|00006130| 09 69 66 20 28 73 20 3e | 20 73 65 6e 64 29 0d 09 |.if (s >| send)..|
|00006140| 09 20 20 20 20 66 61 74 | 61 6c 28 22 55 6e 6d 61 |.    fat|al("Unma|
|00006150| 74 63 68 65 64 20 62 72 | 61 63 6b 65 74 73 20 69 |tched br|ackets i|
|00006160| 6e 20 73 74 72 69 6e 67 | 22 29 3b 0d 09 09 69 66 |n string|");...if|
|00006170| 20 28 2a 6e 6f 69 6e 74 | 72 70 29 20 7b 09 09 2f | (*noint|rp) {../|
|00006180| 2a 20 77 65 27 72 65 20 | 69 6e 20 61 20 72 65 67 |* we're |in a reg|
|00006190| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|000061a0| 2a 2f 0d 09 09 20 20 20 | 20 64 20 3d 20 63 68 65 |*/...   | d = che|
|000061b0| 63 6b 70 6f 69 6e 74 3b | 0d 09 09 20 20 20 20 69 |ckpoint;|...    i|
|000061c0| 66 20 28 2a 64 20 3d 3d | 20 27 7b 27 20 26 26 20 |f (*d ==| '{' && |
|000061d0| 73 5b 2d 31 5d 20 3d 3d | 20 27 7d 27 29 20 7b 09 |s[-1] ==| '}') {.|
|000061e0| 2f 2a 20 6d 61 79 62 65 | 20 7b 6e 2c 6d 7d 20 2a |/* maybe| {n,m} *|
|000061f0| 2f 0d 09 09 09 2b 2b 64 | 3b 0d 09 09 09 69 66 20 |/....++d|;....if |
|00006200| 28 69 73 44 49 47 49 54 | 28 2a 64 29 29 20 7b 09 |(isDIGIT|(*d)) {.|
|00006210| 2f 2a 20 6d 61 74 63 68 | 65 73 20 2f 5e 7b 5c 64 |/* match|es /^{\d|
|00006220| 2c 3f 5c 64 2a 7d 24 2f | 20 2a 2f 0d 09 09 09 20 |,?\d*}$/| */.... |
|00006230| 20 20 20 69 66 20 28 2a | 2b 2b 64 20 3d 3d 20 27 |   if (*|++d == '|
|00006240| 2c 27 29 0d 09 09 09 09 | 2b 2b 64 3b 0d 09 09 09 |,').....|++d;....|
|00006250| 20 20 20 20 77 68 69 6c | 65 20 28 69 73 44 49 47 |    whil|e (isDIG|
|00006260| 49 54 28 2a 64 29 29 0d | 09 09 09 09 64 2b 2b 3b |IT(*d)).|....d++;|
|00006270| 0d 09 09 09 20 20 20 20 | 69 66 20 28 64 20 3d 3d |....    |if (d ==|
|00006280| 20 73 20 2d 20 31 29 0d | 09 09 09 09 73 20 3d 20 | s - 1).|....s = |
|00006290| 63 68 65 63 6b 70 6f 69 | 6e 74 3b 09 09 2f 2a 20 |checkpoi|nt;../* |
|000062a0| 49 73 20 7b 6e 2c 6d 7d | 21 20 42 61 63 6b 6f 66 |Is {n,m}|! Backof|
|000062b0| 66 21 20 2a 2f 0d 09 09 | 09 7d 0d 09 09 20 20 20 |f! */...|.}...   |
|000062c0| 20 7d 0d 09 09 20 20 20 | 20 65 6c 73 65 20 69 66 | }...   | else if|
|000062d0| 20 28 2a 64 20 3d 3d 20 | 27 5b 27 20 26 26 20 73 | (*d == |'[' && s|
|000062e0| 5b 2d 31 5d 20 3d 3d 20 | 27 5d 27 29 20 7b 20 2f |[-1] == |']') { /|
|000062f0| 2a 20 63 68 61 72 20 63 | 6c 61 73 73 3f 20 2a 2f |* char c|lass? */|
|00006300| 0d 09 09 09 69 6e 74 20 | 77 65 69 67 68 74 20 3d |....int |weight =|
|00006310| 20 32 3b 09 09 2f 2a 20 | 6c 65 74 27 73 20 77 65 | 2;../* |let's we|
|00006320| 69 67 68 20 74 68 65 20 | 65 76 69 64 65 6e 63 65 |igh the |evidence|
|00006330| 20 2a 2f 0d 09 09 09 63 | 68 61 72 20 73 65 65 6e | */....c|har seen|
|00006340| 5b 32 35 36 5d 3b 0d 09 | 09 09 75 6e 73 69 67 6e |[256];..|..unsign|
|00006350| 65 64 20 63 68 61 72 20 | 75 6e 5f 63 68 61 72 20 |ed char |un_char |
|00006360| 3d 20 30 2c 20 6c 61 73 | 74 5f 75 6e 5f 63 68 61 |= 0, las|t_un_cha|
|00006370| 72 3b 0d 0d 09 09 09 5a | 65 72 6f 28 73 65 65 6e |r;.....Z|ero(seen|
|00006380| 2c 32 35 36 2c 63 68 61 | 72 29 3b 0d 09 09 09 2a |,256,cha|r);....*|
|00006390| 2d 2d 73 20 3d 20 27 5c | 30 27 3b 0d 09 09 09 69 |--s = '\|0';....i|
|000063a0| 66 20 28 64 5b 31 5d 20 | 3d 3d 20 27 5e 27 29 0d |f (d[1] |== '^').|
|000063b0| 09 09 09 20 20 20 20 77 | 65 69 67 68 74 20 2b 3d |...    w|eight +=|
|000063c0| 20 31 35 30 3b 0d 09 09 | 09 65 6c 73 65 20 69 66 | 150;...|.else if|
|000063d0| 20 28 64 5b 31 5d 20 3d | 3d 20 27 24 27 29 0d 09 | (d[1] =|= '$')..|
|000063e0| 09 09 20 20 20 20 77 65 | 69 67 68 74 20 2d 3d 20 |..    we|ight -= |
|000063f0| 33 3b 0d 09 09 09 69 66 | 20 28 69 73 44 49 47 49 |3;....if| (isDIGI|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.